initiation 
au grew his 
tie I'Appi 




Sauveu 
tie 

variable 



impression 
en double 
haute resolutio 
sur Epson ^ 



l occupation ae la page zero 



line douzaine tie routines 
pratiques LM a utiliser 
a partir au Basic 



N D 10 - Bimestrial ■ Peuxleme anneQ 
3 Septembre - 3 Novembrs T906 

2$4 fb - n fs - 33 F 



Appte * el PrcDOS sent d« ••rotijvi>i {tepasepi pas Appfe Campultf tat 




VOTRE BIBLIOTHEQUE INFORMATIQUE 



• LE MANUEL DEL INTEL- 
LICENCE ARTIFICIELLE 

(A. Barr & E.A. Feigenbavm) 

Vosle el caplivanl sujet que celui traite 
dans le Tome 1 de cet ouvrage colleclif 
(traduit de I'omericain par D. Tauzin- 
Raynaud). Si ['intelligence ortificielle — 
I'lA pour les inllies — inquiete quelque 
peu cerlains esprits retrogrades, elle 
en passionne beaucoup d'autres, heu- 
reusemenl plus ouverts aux techniques 
et theories nouveftes, 

Avec un coul de hnformotique en chute 
iibre, de nombreuses applications, hier 
reservees a la "grosse" informatique, 
devlennenl possibles sur des machines 
plus modestes : la v6tre„> par exemple. 

Que I'ofl ne s'attende pourtant pos d 
trouver dans ce manuel des routines 
permettant de mettre au point un pro- 
gramme personnel Nous sommes ki 
on presence d'un ouvrage de reflexion, 
d'une somrne de connaissances resul- 
tant du travail coherent de plusieurs 
dizaines de personnes : la recherche 
avec Anne Gardner, la representation 
de la connaissance organise par 
Avron Barr et James Davidson, la com- 
prehension de la parole preparee par 
Lawrence Fagan, Paul Cohen et Avron 
Barr H etc. (Editions Syrettes, 320 pages) 

• INITIATION A LA GENE- 
RATION DE TEXTES EN 
LANCUE NATUREUE 

(Jean-Pierre Batpe) 

Est-il passible de confier la production 
de textes a des ordinateurs ? La 
reponse vous est donnee dans cet 
excellent livre de Jean-Pierre Balpe,„ 
programmes en Basic 6 I'appuL Sur 
Apple ? Non, mais il s'agil d'un Basic 
Microsoft foul a fait convenlionnel et 
sans oucune fonction graphlque, ce qui 
vous permettro eventuellemeni de le 
traduire fakement en Applesoft. A 
noter que les programmes proposes 
par I'auteur ont tous ete developpes sur 
des machines dent lo plus pulssanle 
n'avait pas plus de 32 Ko disponibles. 
Vous ne serez probablement pas sur- 
pris en opprenant qu'il est neanmoins 



II 



preferable de disposer d'un fecteur de 
disquelte (nous preconisans l'Unldlsk). 

Nul doute que lo lecture serieuse 
(fallals ecrire T etude") de cette initio- 
lion outonsera bon nombre d'omoteurs 
d'ecrire des applications qui leur per- 
mettront la generation en langue natu- 
nolle de leurs propres "textes". Je ne 
serais pas aulrement surpris si Trem- 
pltn Micro recevalt bientot des exem- 
ples aussi onginaux qu'lnedils. Pour ne 
rien vous cacher, je le souhaite car il 
s'egit 16 d'un sujet porficulierement 
interessant. 

(Editions Eyraites, 204 pages) 
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• PROCRAMMATION EN 
AS5EMBLEUR 68000 

(Louis lean) 

Je sais : voire Apple cheri n'est pas 
equipe d un 68008, mais d'un 6502 ou 
encore d'un 65C£J2..> en attendant le 
fameux 65C816 qui lui permetlra (la 
nouvelle sera peut-etre devenue offi- 
cielle ou moment ou vous lirez ces 
lignes !) de rlvaliser ovec le PC d'IBM 
et ses innombrables copies. Mats cer- 
tains de nos honorables Lecteurs [el 
aussi des Leclrkes : je ne vous oublie 



pas Mesdames) utilisenl un Mac et 
revent de reecrire sur icelul les extra- 
ordinaires routines en langage 
machine qui ant permls h leur Apple de 
ne point paroitre obsolete face a la 
redoulable concurrence des Atari, 
Amiga et autres machines geniales, 

II se trauve que Mac n'esl plus le seul a 
etre equipe d un 6B03EJ. microproces- 
seur auquel les augures promirent un 
avenir beaucoup plus brillant que celui 
reserve au 6800 du meme Motorola. 
Lisa prouva que le 68000 disposait reel- 
lement de possibility extraordinaires, 
mais Lisa fut un echec et nous avons du 
ollendre ['arrive© du Mac pour que des 
auteurs competents s'interessen! enfin 
a I'archilecture et a la program mat ion 
de la bete, 

Voila qui est falt r et en fran;ais, por 
Louis Leon, Celui-ci vous guidera dans 
une approche prudente et logique du 
68000 et vous prouvera que la pro- 
grammation de ce microprocesseur 
n est pas ous&5 rebarbotive que vous le 
laisseront volontiers supposer certains 
beaux esprits, soucieux de vendre des 
machines... et des logiciels r mais ne 
desirant surtout pas alguiller leurs 
clients vers la program ma Hon, 

(Editions Eyrotim, 380 pages) 
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OURQUOf vous obstinez-vous o editer une revue donf ie seal 
objeciifest ossurement d'oider les utiiisateurs d'un Apple lie ou 
Ik a mieux connaftre leur machine ? C'est une question que 
Ton me pose souvent dans les milieux dits professionnels. Et 
c'est vrai que je n'ai certes pas choisi la facilite en creant Irem- 
plin Micro, puis en poursuivant 1'edition de ce titre. 

Autre fait singulier : ce bimestriel de programmes ne semble guere ouveri 
a la publicite. D'ou une autre question, au moins aussi singuliere que la 
premiere : Comment rovssissez-vous a equiiihrer voire budget ? Sans 
doute beneficiez-vous d'une aide invisible d'Apple ? 
Est-il tellement invraisemblable, dans ce pays, qu'un directeur de publica- 
tion soit suffjsamment honnete pour ne point accepter de telles compro- 
missions ? Tremplln Micro n'a rien a cacher et ne dispose pas de ressour- 
ces occultes. Ses ventes lui suffisent et il peut rneme se permettre de retri- 
buer convenablement ses auteurs. 

Par ailleurs, notre revue est controlee par I'OJD (c'est rneme Tun des rares 
titres de cette nature — publication dediee a une seule marque — a se 
soumettre a une telle formalite). Jusqu'a maintenant, nous avons effecti- 
vement refuse les pages de quelques annonceurs (tout en les remerciant 
de leur confiance), trop peu nombreux pour justifier une augmentation de 
notre pagination. En effet, s'll est possible que Iremplin Micro s'ouvre un 
jour d la publicite (son directeur n'est pas publiphobe !), celle-ci sera 
regroupee dans un cahier special supplemental. 

Lectrices et Lecteurs ont la presse qu'ils meritent. Il est parfois facile, dans 
notre pays, de reussir ce que, dans notre jargon professionnef, nous 
appelons des "coups", Je connais les recettes, II est plus difficile d'imposer 
des publications dites "techniques et professionnelles". Heureusement, la 
France dispose, avec les Nouvelles Messageries de la Presse Parisienne et 
plusieurs dizaines de milliers de Depositaires et Diffuseurs de Presse, du 
meilleur reseau de distribution du monde, 

Iremplin Micro ne peut compter que sur ce reseau et sur ses Lectrices et 
Lecteurs, Merci aux animateurs du premier et a la fidelite des seconds.., 
auxquels je promets de bons et nombreux moments en notre compagnie. 

BONNE PROGRAMMATION ETA BIENTOT ! 

GUY HACHETTE. 
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Le courrier de Trempl'm Micro montre 6 I'evidence que ia recopie 
de programmes publies en revue n est pas chose aussi aisee qu'il 
y parait au premier abord. 

Les difficultes peuvent etre classees en deux categories : les fau- 
tes de frappe pures et les erreurs dues 6 des problemes de lecture 
du listage imprime (oublions les bogues et coquilles typo- 
graphiques !). 

Pour corriger ces erreurs il existe des utilitaires dont I'emploi est 
forternent conseille* Pour le BASIC, POM'S diffuse une nouvelle 
version de son Editeur Plein Ecran (EPE) dont Tun des atouts est 
d'etre un produit de conception fran<;aise. On peut egcilement uti- 
liser PROCMD de CALL APPLE ou GALE de NIBBLE. Avec ces deux 
utilitaires on dispose de multiples fonctlons dont la RENUMERQ- 
TATION. Pour les routines en langage machine, NIBBLE a publie 
(et commercialise toujours) un remarquable editeur de code 
HEXA sous !e nom de MLE« 

II m J a pourtant semble utile de fournir au lecteur un maximum 
d J e!ements pour permettre une transcription plus sure des pro- 
grammes et simplifier la recherche d'eventuelles erreurs. Cest 
pourquoi Trempl'm Micro (et pourquoi pas les outres revues ?) 
publiera desormais la plupart des listages sous une forme 
ENRICHIE*. 

La presentation a laquelle vous etes mointenant habitue(e) reste 
globalement inchongee, rnais viennent s'y greffer quelques 
f loritures, 

— Chaque iigne BASJC est accompagnee d une SIGNATURE pre 
riant en compte les differents octets de ladite ligne, a I exclu 
sion du numero, du lien vers la ligne suivante et de tout ce qu 
se rattache a une REM eventuelle (REM proprement dite et 
qui la precede le cos echeant). Par ailleurs, les minuscules 
non accentuees sent assimiiees a leurs homologues 
majuscules. 

— Les espaces parasites suivant REM ou DATA sont soigneuse- 
ment filtres. Dans unechame, si Ton a plusieurs espaces adja- 
cents, les espaces de rang superieur a un sont remplaces lors 
du listage par des tremas ce qui permet d en controler aise- 
ment le nombre. Les caracteres de controle — qu'il vaut 
mieux eviter (NIBBLE refuse carrement leur presence dans les 
programmes publies) — sont affiches sous la forme develop- 
pee ctX'. Sur ecran 80 colonnes, ct s'affkhe en INVERSE, CT en 
INVERSE remplace ct si 40 colonnes. Sur papier, sur IMW et 
EPSON recente ct sera souligne. 

— Pour les routines HEXA les listes seront publiees a raison de 
16 octets par ligne suivis 16 encore d'une SIGNATURE de 
controle. 

Afin de vous permettre de controler votre travail de recopie, 
Tremplin Micro met en vente une disquette regroupant les pro- 
grammes utilises pour generer ces listages au prix de 30 francs. 

* Qu&fqo&s programmes du present numero vtitisent dS-fd to formate 
de controls rnise Qu paint par Yvan KOENtG. Ce systemo se g^n^ro- 
tisora a partir do notre prochain numero (3 novembre). 
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I vous animez un club ou une clcsse de micro-informatique, 
n'hesitez pas a taper patiemment les 68 lignes de cette excel- 
lente demonstration des possibilites graphiques de I'Apple. Le 
meme conseil s'adresse aux debutants et dune maniere 
generals, a celles et a ceux qui ne se sont pas encore interes- 
ses aux instructions graphiques de I'Applesoft. 




GRAPH. DEMO 

1 REM 

2 REM Un amper-i nterpreteur est cache la 

3 REM «?— 

4 DATA 201,80,240,30,201,84.240,36,201,7 
6.248.44,32,248.230.202.134.36,32.183. 
0,240,10,32,245.230.202,138,133.37,32. 
34,252,96,32,245 

5 DATA 230,32,142,253,202,208,250,96,173 
,0,192,16,251,141,16,192,32,177,0,96,3 
2,245,230,134,58,32,245,230,134.59,32, 
245,230,138,76,99,254 

6 FOR C = 768 TO 840: READ A*; POKE C.M 
: NEXT : POKE 1014.0; POKE 1015,3 

7 POKE - 16197,0: TEXT ; HOME i & 11,5: 
PRINT "Petite demonstration " 

8 & 11: PRINT 1 

9 & 20,11: PRINT *du" : & 20: PRINT ■ 

10 & 8,18: PRINT "Graph lane Haute Resolut 
ion" 

11 & 8: PRINT " 

& T: & P16: HGR 

12 & 5: PRINT *L' Instruction BASIC HGR af 
fiche" 

13 & 5: PRINT "et efface la PAGE 1 en lai 
ssant" 

14 & 7: PRINT "4 lignes de texte en bas.. 

15 & 5: PRINT M <Pour 1 'assembleur: JSR $ 
F3E2> ,t i: & T 

16 & 4: PRINT "Pour couvrir la total ite d 
e recran" 



17 & 7: PRINT "i! faut faire un POKE- 1630 
2,0' 

18 & 3: PRINT "<Pour 1 'assembleur ; BIT ou 

LDA *C052> ,t 

19 & 4: PRINT "Pour revenir en mixte POK 
E-16301,0";: & T 

20 HOME : TEXT i PRINT " De la meme manifcr 
e I'instruction HGR2" i & 11; PRINT "af 
f iche la PAGE 2": & 5: PRINT "Gel le-ci 

n'a pas de mode mixte" 

21 PRINT 1 Cdu moins pas avec la PAGE 1 d 
u TEXTE)" 

22 & 5: PRINT " <Pour 1 'assembleur : JSR *F 
3D8>" 

23 PRINT s PRINT B La page I occupe I'esp 
ace memoire:"; PRINT : PRINT " 92080 
/ *3FF7... 8192 / 16375" 

24 PRINT I PRINT * La page 2 occupe i'esp 
ace memoire:": PRINT i PRINT 1 $4000 
/ $5FF7... 16384 / 24567" 

25 PRINT : PRINT "On peut afficher une PA 
GE sans 1'ef facer": PRINT : PRINT " Po 
ur la PAGE 1: POKE -16300,0 CSC054) B : 
PRINT " Pour la PAGE 2: POKE -16299,0 
($0055)": PRINT f & Ts & P6 

26 & 5: PRINT "On peut aussi ecnre sur 1 
a PAGE" : 8, 10: PRINT "qui n'est pas af 
f Ichee" 

27 & P2: PRINT "-> Ecriture PAGE 1: P0KE2 
30,32 ": & 6: PRINT "En assembleur: ID 
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GRAPH. DEMO 



(suite) 



A £$20": & 21: PRINT "ST A $E6" 

28 PRINT : PRINT u -> Ecriture PAGE 2: POK 
E230.64 n : & 6: PRINT "En assembleur: 
LDA £$40": t, 21: PRINT " STA $E6" ; & P5 
: & T 

29 HGR : & 6: PRINT "1/ instruct ion HCOLOR 

permet": & 10: PRINT "de fixer U cou 
leur": & T 

30 BONE : FOR C = TO 7: HC0L0R= Cs HPLO 
T 0.0: CALL - 3082: & 15,23; PRINT Ji HC 
OLOR = " ;C:: & Tl NEXT 

31 G05U"B 68: & P2: PRINT "La routine HGOL 
OR se situe en $F6F0": PRINT "Chargez 
le code de la cou leur dans X" : & L240, 
246,9: & P2 

32 & 7: PRINT "Vous pouvez aussi charger" 
: PRINT "directement $E4 pour gagner d 
u temps, . . " : & T 

33 HGR : PRINT i & 8: PRINT "L' instruct io 
n HPLOT permet": & 12: PRINT "de trace 
r un point" 

34 HPLOT RND CI) * 280, RND (1) * 160: IF 

PEEK < - 16384) < 128 THEN 34 

35 POKE - 16368,0: GOSUB 68 

36 & P2: PRINT "La routine HPLOT se situe 

en $F457" : & 187,244,7: & P2 

37 PRINT 11 En $F411 se trouve la routine 
HPOSN" : PRINT "qui calcule a partir de 

l'abscisse Y,X": & 10: PRINT *et de I 
'ordonn^e A: H 

38 PRINT : PRINT "->L'adresse de debut de 

ligne C$26/*27)": PRINT "OHMASK <$30 
)": PRINT "->HC0L0R1 <«1C) B : PRINT '-> 
Le numero d' OCTET dans la ligne C*E5) ,r 

: & T 

39 HOME : TEXT i HGR : PRINT 1 HPLOT perme 
t aussi de tracer des lignes": PRINT r 

& 9: PRINT "HPLOT Xl.Yl TO X2.Y2 TO., 
ii 

40 HCOLOR* RND CD * 8: HPLOT RND C 1? * 2 
80, RND CD * 160 TO RND CI) * 280, RN 
D (1) * 166: IF PEEK ( - 16384) < 128 
THEN 40 

41 POKE - 16368,9: GOSUB 68 

42 PRINT : & 5: PRIKT "La routine HL1N es 
t en $F53A" ; PRINT "El le trace une lig 
ne du dernier point": PRINT "trac£ (do 
nc qui est passe par HPOSN)" ; & 5: PRI 
NT "au point:" 

43 PRINT : PRINT : & 5: PRINT ,E -> ABSCISS 



E X,Y" : & 5: PRINT "-> ORDONNEE A 
P2 

44 & 5: PRINT "Une autre adresse bien uti 
le!": PRINT "HFIND en $F5CB est l'inve 
rse de HPOSN": PRINT "II nous redonne 
abscisse et ordonn^e " : & P2: & 5: PRI 
NT ABSCISSE $E0*$E1": & 5: PRINT u 
-> ORDONNEE $E2" : & T 
HOME : TEXT ! HGR : HC0L0R= 7: PRINT " 
HPLOT permet aussi de tracer n' importe 
" : PRINT "quelle courbe a partir de so 
n equation," 

FOR X = TO 14 STEP .08: HPLOT X * 20 
, SIN C - X) * 50 + 100: NEXT : & T 
TEXT i & P4: 8- 7: PRINT n Les formes ha 
ute resolution": & 7: PRINT " 



45 

46 

47 

48 

49 

50 
51 

52 

53 
54 



55 



56 



PRINT : 6. 3: PRINT "Une FORME est une 
suite de vecteurs" : & 5; PRINT 11 de dep 
lacement dans les quatre H : & 5: PRINT 

"directions avec ou sans trage." 
PRINT : PRINT a Chaque octet de la FO 
RME est divise": PRINT "en 3 sections. 

chacune etant un vecteur" : PRINT "Le 
dernier octet ne contient que des 8." 
PRINT : PRINT "Plusieurs formes peuven 
t etre regroupees* ; : PRINT : & 8: PRIN 
T °dans une TABLE DE FORMES." 
PRINT : PRINT " Cette TABLE contient e 
n tete le n ombre": PRINT " de formes p 
uis leurs adresses relatives": & 6: PR 

INT "La TABLE est ainsi relogeable." 
PRINT : PRINT " Vous allez voir ce qu 

'on peut faire": 8. 6: PRINT "avec un s 

imple pet it carre, 8* T 

DATA 1,0.4,8,45,54,63,36*0: FOR C = 
850 TO 858: READ DSs: POKE CM: NEXT 

POKE 232,82: POKE 233,3: HOME : TEXT ! 
HGR : HCOLOR* 7: SCALE= t: R0T= 0: PR 

INT " DRAW permet de tracer une forme 

en X,Y": PRINT : & 75 PRINT "Exemple; 

DRAW 1 AT 100 . 50": DRAW I AT 100,50: 
& T 

PRINT : PRINT SCALE donne la dimens 
ion de la forme": PRINT : FOR D = 1 TO 
40: & 10: PRINT "SCALE = ";D:: XDRAW 
1 AT 100.50: SCALE= D: DRAW 1 AT 100,5 
0: NEXT : & T: XDRAW 1 AT 100.50 
& P2: PRINT " ROT permet de faire tou 
rner la FORME 11 : PRINT : SCALE- 24: FOR 
D = TO 64: 8, 10: PRINT "ROT = ";D:: 
XDRAW 1 AT 100,70: ROT- D: DRAW 1 AT 
100,70: NEXT : & T: XDRAW 1 AT 100,70 



4 



GUY-HACHETTE 



57 8. P2: PRINT "Vous pouvez crSer ainsrl d 
e jol is effets": PRINT : FOR C = 1 TO 
2: HC0L0R= C: FOR D = TO 64; R0T= D: 

DRftW 1 AT 130,78: NEXT D,C: & T 

58 PRINT : PRINT 1 XDRAW dessine conme 
DRAW mais avec" : 8. 6: PRINT u la couleu 
r compl Omenta ire" 

59 FOR C = i TO 2: FOR D = TO 64: ROT= 
0: XDRAW 1 AT 130,70: NEXT D.C: & T: G 
GSUB 68 

60 & P2: PRINT " XDRAW est en $F65D et DR 
AW en *F60t H 

61 & P2: PRINT "II faut mettre tea coordo 
nn^es en; 11 : PRINT : PRINT ; & 5: PRINT 

H -> ABSCISSE X*Y": & 5: PRINT "-> ORD 
ONNEE A M 

62 & P2: PRINT "Attention! Les coordonn^e 
s sont eel lea": PRINT : & 8: PRINT "de 

la FORHE concerned. M : PRINT : PRINT : 
& T 



63 & P8: PRINT "Et pour terminer un petit 

kaleidoscope 1 : PRINT : PRINT : & 4: P 
RINT "Toujours avec le petit carrg!": 

& n%t & t 

64 H6R2 : SCALE= I6:H = 1: FOR Y = 5 TO i 
55 STEP 50: HCOLOR^ H:H = H + Is IF H 
= 3 THEN H = 5 

65 FOR C = 1 TO 250: DRAW 1 AT C,Y: NEXT 
C,Y 

66 SCALE 52 RND CI) * 10(3: HCOLOR= RND <1) 

* 7: DRAW 1 AT RND CI) * 286, RND Ci) 

* 160: IF PEEK < - 16384) < 128 THEN 6 
6 

67 HOME : TEXT : END 

68 HOME : TEXT : & 12: PRINT "Pour l'asse 

mbleur": & 12: PRINT " 

-" s RETURN 
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• Prolog (Dunod) 

On assiste dons les communautds 
scientifiques et mdustrielles fran- 
poises a un engouement croissant 
pour les longages de ('intelligence 
artificielle, les applications de sys- 
temes experts et, de facon generate, 
les outils informatrques destines, 
d'une part, a la representation et a la 
manipulation de cormaissances et, 
d'autre port, a la simulation de rai- 
Sonnements. 

En cinq ans, le langage PROLOG 
(PROgrammation LOGique) est passe 
d'une curiosity de laboratoire a une 
r§alite industrielle et commercial 
Langage de progammaflon pour des 
applications d'intelligence artifi* 
cielle, PROLOG est aussi un outil 
general pour la conception et 
Texploitation de systemes experts, 
pour lo gestion de bases de donnees, 
le traitement des langues naturelles, 
la CA.O. ou le genie logiciel. Tres 
utilise tant dans les Jaboratoires de 
recherche que dans les centres de 
developpements industries, M fait 
f'objet de nombreuses mises en 
ceuvre destinees a la pJupart des 
ordinateurs en usage aujourd'hui. 

HHHMMHffHMtillMHniHfllJ 

TREMPLIN MICRO 



par Clemenl RENARD 



L'ouvroge collect if que presente 
Moryse Gondii lac decrit en pro- 
fondeur le langage PROLOG et ses 
fonctions et donne un panorama de 
la grande variete de ses applications, 
II le presente a plusieurs niveoux 




d 'abstract ion en le replacant dans le 
cadre plus general de la program- 
mation en logique. A I'aide de nom- 
breux examples et applications qui 
feront apprecier la rapjdite de sa 
progrommation, lg_fac_jjit£ de sa mise 
au point et I e na tu re I de son 
expression, les auteurs expNquent 
ainsi les fondements theoriques et 
les concepts de base d un langage en 
pleine evolution, 

314 pages, b roc he (environ 170 F) 



• Les meilleurs logiciels 
pour M05, TOT et T09 

(Marabout) 

Nos lecteurs enseignants travail lent 
beaucoup sur Thomson... ce qui ne 
les empeche pas de continuer 6 tirer 
le meilleur parti de leur Apple chert, 
lis trouveront, dans ce nouveau volu 
■me de la collection Marabout Ser- 
vice, une selection des meilleurs (du 
moins aux yeux de J J auleur) logiciels 
pour opprendre, s J amuser P rire, 
reflechir, gerer, creer, dessiner r etc, 

II faut nofer que la photocomposition 
du bouquin □ ete realises par I'auteur 
(llya Virgatchik} sur imprimante 
laser,., une methode d'edition qui 
tend a se generaliser ! 



DIDACTiQUE 



DOS 3.3. EXCLUStVEMENT 



NESTOR 



Instructions Basic 



LESO 



OUS connoissez evidemment les 107 instruc- 

Vtions du Basic Applesoft et vous savez quelles 
correspondent ptus ou moins (nous y revien- 
drons plus loin) d des routines instalfees 6 
demeure dans une ROM (memoire morte H si 
vous preferez) de votre Apple. Le nom de cha 
que instruction est un mot reserve, c'est-d-dire que vous ne 
pouvez pos I'utiliser comme nom de variable... et pas davan- 
toge a Tinlerieur d'un nom de variable (FOR= 1 est lnterdit h 
mais REFORMED Test aussi). Ces mots-cles du Basic Apple- 
soft figurenl tous dans une table qu r il est facile de lire a porlir 
de I'adresse $D0D0 (jusqud $D25F). Detail amusanl, cette 
table commence par le mot... END. Et ce n est pas une plai- 
sonterie ! Elle setermine par MID$... et un beau zero, 

LE ROLE DE L'lNTERPRETEUR 

Cest I'interpreteur qui, par I'intermediaire de la routine 
PARSE (SD56D), attribue son numero de code a chacune de 
vos instructions Basic. Ce numero ne peut etre inferieur d $80 
(128) ou superieurd&EA (234). 

Comment precede Tinterpreteur ? II lit la table caractere par 
caractere, nan sans incremeriter son pointeur d cheque nou- 
velle instruction... mais il y a un hie, Consultez plutdt le debut 
de celte fameuse table : 

ENDFORNE 

D0D0- 45 4E C4 46 4F D2 4E 45 
D0D8- 58 D4 44 41 54 CI 4? 4E 

Vous constatez que les caracteres s'y suivent sons aucune 
interruption : E N D F O R N E... sur quel crit&re Hnterpreteur 
se base-t-il pour savoir que la lecture d J un mot-cle est termi- 
nee... et que celle d'un autre va commencer ? Je suis sur que 
vous auriez trouve la solution sans explication ! 

Les lettres de choque instruction sont toutes codees d partir 
de la table ASCII normale (A =$41 , B = $42 r etc), sauMa der- 
niere qui est augmentee de $80 (128) et devient 
done ; A=$C1 r B = $C2, etc. Ce renseignement suffit a notre 
interpreter pour s'y retrouver ! 

ADRESSES DES ROUTINES 

Quand le CODE de I'instruction (ou son numero d'ordre, si 
vous preferez) est connu, il est facile, pour I'interpreteur 
(toujours lul !), de consulted une outre table (de $D0(J0 a 



$D0B1) pour y lire I'adresse de la routine Applesoft corres- 
pondante H une adresse qu'll y trouve sur deux octets, comme 
il se doit. Mais je suis persuade que vous avez mentalemertt 
fait un petit colcul dont le resultat vous chlffonne, Tenez I |e 
parie que vous vous prepares dejd d ecrire d Tremplin Micro 
pour pretendre (6 le vilain... ou I'affreuse Jojette) que Nestor 
se moquedevous ? 

Et oui ; 2 octets multiplies par 107 instructions, ceto nous 
donne effectivement 214 octets ou $D6... or — voir plus haut 

— la longueur de la table n f est □pparemment que de 17B 
octets ou $62. ce qui correspond a 89 instructions, II existe 
effectivement 18 instructions sans point d'entree (de $C0 ou 
192 6 $D1 ou 209). 

ADRESSE FAUSSE ET ADRESSE VRAIE 
Mais ce n'esl pas tout. Les adresses des 64 premieres routi- 
nes sont fausses. Comme je vous le dis. El les ne deviennent 
exgetes qu'apres leur avoir ajoute 1. Etrange, mais vrai. 
Quant aux adresses des 25 dern ieres, el les sont rigoureuse- 
ment exactes. Nous n'allons pas nous en pigindre... et I'inter- 
preteur pas davantage ! 

PASSOHS AU PROGRAMME 

Tout cela n'est d r ailleurs pas bien grave puisque notre petit 
programme va vous permettre, d partir du CODE HEXA ou 
DEC de choque mot reserve [n'oubliez pos, de$80 d $EA) : 

— d'afficher le nom de I'instruction (e'est le plus facile) 

^- son adresse positive... et negative (e'est parfois pratique) 

— eventuellement de changer ]e mot-cle pour un autre de 
meme longueur, d vos risques et perils bien entendu, 

Je crois que vous voudrez tester la dernidre "fad lite" du pro- 
gramme et je vous conseille, dons un premier temps (et 
apr&s avoir sauvegarde votre ceuvre sur disquette) de chan- 
ger REM pour ***. 

Lorsque ce sero chose faite, tapez un CTRL-C pour sortir du 
programme sans RESET, puis un LIST qui vous prouvera que 
tous vos REM sont bel et bien devenus des *** J comme dans 
ie listage de TrempLin Micro. Attention I un RESET retablit 
lorthographe normale, sans aucune influence sur le pro- 
gramme en memoire d'ailleurs. 

Et maintenant, suivez les explications donn^es en regard du 
listage, Amusez-vous bien \ 



NESTOR. 
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ATTENTION ! 

Tapez un REM a la place de * 



FONCTIONNEMENT : 

Un simple RETURN vous don- 
nera automotiquement la 
valeur suivante (la premiere 
etant $80/128). 

Pour aller en avant, taper + 
(plus) et ensuite des RETURN 
success if 5. 

Pour revenir en arriere, taper 
— (moins) et des RETURN, 

Une valeur HEXA doit etre pre- 
cedes du $ (dollar). 

Une valeur DEC sera renfree 
sans signe particulier. 

Pour remplacer un mot-cle par 
un autre de me me longueur, 
rentrer £AAOT (ou diese-mot 
avec un clavier QWERTY), 
Le mot propose doit compter le 
meme nombre de carocteres 
que le mot a remplacer. 



100 TEXT ! PRINT CHR$ (21): HOME 

105 ON ERR GOTO 340 s #*# Fin de programme avec CTRL-C 

110 GOTO 350: #** Vers routines LM 

115 INVERSE : PRINT " POINTS D' ENTREE DES ROUTINES APPLESOF 

T <r : NORMAL I POKE 34,3 
120 PRINT "La table commence a i'adresse $D080 et le nu 
mero de code de chaque routine est compris entre $83 & 
SEA (128-234 3." 

125 VTAB 18: FOR I = 1 TO 10: PRINT rJ 11 ; : NEXT t PRINT 

POUR UNE MODIFICATION: "j: INVERS 
NORMAL 



RETURN POUR VALEUR SUIVANTE 1 



PRINT "NUMERO DEMANBE" ; ; NORMAL : INP 



pour aller en AVANT ou en 



iscos = 
- i?ct» = 



GOTO 185 
d ; GOTO 1 



130 VTAB 20: PRINT " 

E : PRINT "£M0M" 
135 VTAB 22: PRINT " 
141 P = 0:PM - 1 
145 VTAB Si INVERSE 

UT "> "iCODE* 
150 *** II suff it de taper + ou 
ARRIERE 

155 IF CO* ■ *+" AND R < 107 THEN PM 
160 IF C0$ = "-" AND R > = 1 THEN PM 
85 

165 DI = 1: Adresse + 1 pour les 63 premiers tokens 
178 IF COS - THEN 185 

175 Si CQ$ commence par £, changement de nom 
180 IF ASC (C0$> ■ 35 AND LEN <C0$) - 2 = PEEK (24) THEN GO 
TO 335 

185 IF C0$ = M " THEN R = R + PM:D = R + 127: GOTO 225 
190 IF LEN (CO*) < > 3 THEN 145 

195 *** Si C0$ ne commence pas par un $ c'est une valeur d£ 

cimale (a priori ) 
200 IF ASC <C0S) < > 36 THEM D = VAL (C0$>: GOTO 220 
205 ##* Conversion valeur HEXA en valeur DEC 
210 D - 0:P = 0: FOR 1 - 3 TO 2 STEP - 1:A* = M1B$ (COS, I. I 

>:A = VAL mil IF AS > u 9" THEN A * ASC CAS) - 55 
215 D = D + (A * 16 A P):P = P + 1: NEXT 
220 R = D - 127: #** R=rang (de 1 a 107. . .S80-EA. 128-234) 
225 IF R < 1 THEN PH = 1:C0S - ,,u : GOTO 185: *** PH force A 

+ 1 

230 IF R > 107 THEN PM = - 1:C0* = 11 " : GOTO 185: *#* PM for 
c£ a -1 

235 VTAB 8: HTAB 17: PRINT Ds : CALL - 868: HTAB 38: PRINT P 

Mir IF PM = 1 THEN HTAB 37: PRINT "+» 
240 18 routines ne comportent pas de point d'entr^e <$C 

8-Dl*., 191-289.) 
245 DR = D: IF D > 209 THEN DR = D - 18 
250 Ne plus ajouter 1 pour obtenir I'adresse des 25 der 

niers points d'entree (done DI=0) 
255 IF D > 191 AND D < 210 THEN DR = 0:X - DR:Y * DR:DI = 

: GOTO 270 

260 *** Adresses des routines ($D000-$D0CF> 

265 ADRESSE = 53248 + (2 * DR) - 256:X = PEEK CAD) + DI:Y = 

PEEK (AD + 1): IF X > 255 THEN X = fl:Y = Y + i 
276 POKE 7,X: POKE 6.Y 
275 PRINT : VTAB 11: HTAB 8 
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(suite) 



PRINT " PAS DE P01H 



+ DI 



280 #*# Li9te des tokens <$DGD0-$D25F ou 53456-53855) 

285 POKE 25, R: CALL 776:A2 - PEEK (9) * 256 + PEEK C8):A1 = 

A2 - PEEK <24) 
290 #*# Affichage du nom 

295 FOR J = Al TO A2: PRINT CHR$ C PEEK fJ))!t NEXT 
300 *## Affichage de I'adresse decimal e C+ ET -) et de 1'ad 
resse hexa 

305 PRINT ■ 1 %t IF NOT DR THEN INVERSE : 

T D' ENTREE" : : NORMAL s GOTO 320 
310 AF = PEEK (AD + 1) * 256 + PEEK CAD) 
315 PRINT AF" "AF - 65536 u CALL 768 

329 CALL - 868 

325 PRINT s GOTO 145 

330 Remplacement d'un mot -c 16 par celui de votre choix, 
niais de longueur i dent i que 

335 P = 1: FOR J = Al TO £2 - Irp = P + 1: POKE J, ASC ( Ml 
D$ (C0$,P,1>): NEXT : POKE A2, ASC < RIGHTS <C0*.1>> + 
128i GOTO 220 

340 TEXT i HOME : END 

345 *** Routines LM 

350 FOR I = 768 TO 819: READ R: POKE I f R: NEXT 

355 *** Copie de $D0G0-FFFF (ROM) en memoire auxiliaire et 

lecture de cette zone connnutee aur la memoire vive Cann 

ule par tin RESET) 
360 A$ = "D000<D000,FFFFM D823G" : FOR X = 1 TO LEN <A$>: PO 

KE 511 + X, ASC ( M1D$ <A$,X,1)> + 128: NEXT ! POKE 72, 

0: CALL - 144: POKE 49283,0; POKE 49283,0 
365 *** La Mgne precedente est inutile si Ton gupprime le 

changement de nom 
370 GOTO 115 

375 DATA 165,6,166,7,32,65,249,96,162,0,134,24,169,208,133, 
8,133,9,160,0,161,8,201,128,144,14,230,24,165,24,197,25 
,240,15,201,107,240,11,160,255,200,230,8,208,2,230,9,20 
8,227,132,24,96 



■s^^iyB on By ^% BUM 

La ligne 360 copie la memoir© 
morte en memoire vive et 
commute la lecture de cette 
zone sur la memoire vive, ce 
qui obligera I'lnterpreteur a 
lire vos eventuelles modifica- 
tions... et a en tenir compte. 

Com me cela a ete precise 
plus haut, un RESET retablit la 
lecture en memoire morte. 



A 
D 
R 
E 
S 
S 
E 
S 





D0B1 


De 1 


a l'» 


a la 


64*. 


adresse = adresse + 1 (exempt 


e : SD86F 


= SD870 


END). 


D0S0- 


6F 


D8 


65 


D7 


F8 


DC 


94 


D9 


D068^ EB 


D9 


83 


E7 


C8 


D8 


AF 


D8 


D908- 


Bl 


DB 


30 


F3 


D8 


DF 


El 


DB 


DG7B- 12 


E3 


7A 


E7 


D4 


DA 


95 


D8 


0010- 


3F 


F3 


98 


F3 


E4 


Fi 


DD 


Fl 


D378- A4 


D6 


69 


D6 


9F 


DB 


48 


D6 


D018- 


D4 


Fl 


24 


F2 


31 


F2 


40 


F2 


















D0 20- 


D7 


F3 


El 


F3 


E3 


F6 


FD 


F6 


De la 65* a 


lo 


89V 


I'adresse 


est 


exacto 


0023- 


68 


F7 


6E 


F7 


E6 


F7 


57 


FC 


(TOKEN SD2 a 


SEA). 












D6 38- 


20 


F7 


26 


F7 


74 


F7 


6C 


F2 


D080~ 90 


EB 


23 


EC 


AF 


EB 


0A 


00 


D038- 


6E 


F2 


72 


F2 


76 


F2 


7F 


F2 


D088- DE 


E2 


12 


D4 


CD 


DF 


FF 


E2 


D0 40- 


4E 


F2 


6A 


D9 


55 


F2 


85 


F2 


D990- 8D 


EE 


AE 


EF 


41 


E9 


09 


EF 


D04S- 


A5 


F2 


CA 


F2 


17 


F3 


8B 


F3 


DQ98- EA 


EF 


Fl 


EF 


3A 


F6 


9E 


F0 


D058- 


9E 


F3 


61 


F2 


45 


DA 


3D 


D9 


D0A9- 64 


E7 


D6 


E6 


C5 


E3 


07 


E7 


D058- 


1 1 


D? 


C8 


D? 


48 


D8 


F4 


S3 


D0A8- E5 


E6 


46 


E6 


5A 


E6 


86 


E6 


D060- 


28 


D9 


6A 


D? 


DB 


D9 


6D 


D8 


D0B0- 91 


E6 
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• Pratique des Apple, volume 4 {Editions Radio)* 

II m'a ete impossible de vous annoncer la partition de cet 
ouvrage dans le numero 9 de TrempHn Micro et je le regrette : je 
suis en effet persuade qu'il aurait rendu d'irnmenses services a 
ban nambre de nos Lectrices ef Lecteurs pendant les vacances 
d f ete. 

Mais il n'est pas trop lard pour essayer de rattraper le temps 
perdu. Ce quatrieme volet de la Pratique des Apple est consacre 
au Basic compile et au langage machine, et je vous assure qu'il 
merite de retenir votre attention. J.-C. Fantou, son auteur, sait y 
expliquer. Ires simp! ement, mais avec une rare marrrise, com- 
ment courl-circuiter I'interpreteur Basic pour accelerer les pro- 
grammes et creer vos propres instructions Basic. 

L initiation au langage machine est progressive et Ires claire. Si 
vous etes encore ignorant en la matiere, il est certain que vous 
reoliserez, livre en main, de rapides progres. 

D'outres sujets retiendront egalement votre attention : les routi- 
nes du mode graphique a double haute resolution, lecriture en 
page graphique de texte 80 colonnes. Quant au chapitre consa- 
cre a l -apprentissctge d'un assernbleur tel que Toolkit P Liso ou Big 
Mag r il est evident qu'il satisfera bien. des curieux. 

J'en aurai termine quand j'aurai precise que J,-C, Fantou — qui 
n'en est pas d son coup d'essai puisque nous lui devons dejd, 
dans la merne excellente collection, Grophisme et Sort — tient 
evidemment compte des instructions du 65C02, Chapeau ! 
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9 Manuel tie l utilisateur des apple n (Editions Radio)* 

Si je vous dis que les louanges adressees au precedent conviennent 
egalement d la methods de Lon Poole (version franchise de J.-C Fan- 
tou... toujours lui i), vous allez probablement me soupconner d'ovoir 
recu d'icelui, pour prix de ma brosse d reluire, quelque ouvrage inter- 
dit de la collection X. Detrompez- vous : je ne connais pas J.-C. Fantou 
ef pas davontage les responsables des Editions Radio, mais il se trauve 
que je suis emballe par cette deuxieme edition. 

Pour ne rien vous cocher H j'oi commence mon apprentissage avec la 
premiere edition il y o de cela quelques annees. Elle m'avait beaucoup 
aide, mais je me souviens avoir longuement seche sur certains de ses 
chapitres, 

Les acfuels acheteurs d'un Apple, et notamment d'un He ont beaucoup 
de chance. Les mellleurs livres omericains ont ete" traduits et il existe 
de bons auteurs francais (il sufHt de lire regulierement cette rubrique 
pour S en Convaincre). 

Bref, je vous conseilte ce Manuel de lutilisateur. L'editeur pretend 
que e'est une veritable "bible des Apple". Je ne le dementirai pas. 
D'abord parce qu'il tratte — et fort bien — les points qui posent le plus 
de problemes a nos Lectrices et Lecteurs ; gestion des fichiers H pro- 
grammation de la souris, son et musique, etc Ensuite parce que, pour 
une fais, llmprimante n'a pas ete oubliee. Parfaitement ; reconfigure- 
tion du port numero un r tabulation et rnise en page, micro- 
interrupteurs, definition de caractere a lo demonde,., qui d it mieux ? 
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PRATIQUE 



DOS 3.3 



DOS 



NESTOR 



GREFFE-LM 



GMMENT dissimuler une courte routine LM en tete d'un programme en Basic ? Cette 
question — 6 eombten indiscrete ! — ma ete posee par plusieurs Lectrices et Lecteurs de 
Tremplin Micro. Voici une solution simple et amusante. 

|| s'agit ici cie disposer d'un sous-programme capable de tracer rapidement un cadre (en 
40 ou en 80 colonnes), Je me suis paresseusement contente de reprendre celui paru dans 
les pages 40 et 41 du numero 7 de TM. Commencez par le taper (encadre, en bas de la page).,. 

*800, 83F AVAMT BLOAD CREFCADRE March* U SUivre : on ne peut plus simple ! 




0800- 
0808- 
0810- 
0818- 
0820- 
0828- 
0830- 
0838- 



00 35 08 
2A 2A 2A 
2A 2A 2A 
2A 2A 2A 
2A 2A 2A 
2A 2A 2A 
2A 2A 2A 
00 BA E7 



*800. 83F 



0800- 
0808- 
0810- 
0818- 
0820- 
0828- 
0830- 
0838- 



20 

20 
20 



64 00 
2A 2A 
2A 2A 
2A 2A 
2A 2A 
2A 2A 
2A 00 
28 34 



B2 2A 2A 
2A 2A 2A 
2A 2A 2A 
2A 2A 2A 
2A 2A 2A 
2A 2A 2A 
47 08 69 
29 22 50 



APRES BLOAD CREFCADRE 



00 35 
FC A5 
CA D0 



10 
ED 
ED 



8D F7 
00 BA 



08 64 

06 A2 
FA A2 
FC A5 
FD CA 
FD CA 

07 60 
E7 28 



00 B2 
51 20 
16 20 
06 20 
D0 EF 
D0 FA 
00 47 
34 29 



20 58 
ED FD 
62 FC 
ED FD 
A2 4E 
86 25 
08 69 
22 50 



Connaitre Id fongueur exatte de la routine LM ; dans le cas pre- 
sent, celle-ci est de 46 octets ($2E) ; 

Taper un NEW, puis le programme de la page 11, en veillant a 
ce que le nombre d'osterisques de la ligne 100 soit rigoureuse- 
ment egal a la longueur de la routine LM ; 
Passer en mode Monltetr par un CALL-151 ; 
Affither le debut du programme par 800.83F: normalement, s'il 
n r y a pas d'erreur de saisiedans les lignes 100 et 1 05, le resultat 
doit etre identique a Texemple donne ci-contre, Si ce n'est pas 
le cas, verifier le nombre d'asterisques ou rentrer une nouvelle 
ligne en supprimant les espaces ; 

Sauver cette premiere mouture sur disquette (on ne salt 
jamais !) ; 

Taper un BLOAD CREFCADRE, A$8@6 ; 

Refaire un CALL- 151, puis 8O0.83R.. et comparer au modele ckontre ; 
Lister le resultat,,. la ligne 105 aura change d'aspect, comme le 
montre mon exemple ; 

Ron... et si ca ne rnarche pas, rereverifier le lout car il y a force- 
merit une erreurquelque part ! 

Ne pas oublier de sauver cette ultime version et s'offrir le luxe 
de la soumettre a un copain (de preference neophyte) qui 
s'lnterrogera longuement,., et en pure perte sur le sens des 
etranges instructions de la ligne 100 I Vflireiou|our»d6vou»;NESTOR 



#3@0 .32D 



CREFCADRE 



6300- 20 58 FC A5 86 A2 51 20 



0308- 
0310- 
8318- 
0320- 
0328- 



ED 

62 
ED 
A2 
86 



FD 
FC 
FD 
4E 
25 



CA 
20 
2@ 
20 
9D 



D0 
16 
ED 
ED 
F7 



FA 
FC 
FD 
FD 
07 



A2 
A5 
CA 
CA 
69 



16 20 
86 28 
D0 EF 
D0 FA 



BSAVE GREFCADRE, A $3 00, L$2E 



Si vous £tes debutantfe), rentrez cette courte 
routine de la maniere suivante : 

18 FOR I = 768 TO 813s READ R: POKE I,Rs NEXT 
28 PRINT CHRt WBSfWE GREFCADRE,A*3B8,l*2E u 
38 DATA 32,86,252,165,6,162,81,32,237,253,282,2 
08,258,162,22,32,98,252,32,16,252,165,6,32, 
237,253,32,237,253,202,288,239,162,76,32,23 
7,253,282,288,258,134,37,141,247,7,96 
Terminez par un RUN 
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AVANT BLOAD GREFCADRE 



Naturellement, le nombre 
d'mterisques pourrait 
etfe superieur a la lon- 
gueur de la routine LM + 
L'esserttiel est qu'il ne soit 
surtout pos plus petit I 



QUESTION ■ 

Le BLOAD GREFCADRE est- 
il indispensable ? 
R^ponse : non. Quand la 
routine LM est installee a 
I'adresse $300, il suffit de 
passer en mode moniteur 
par un CALL-151, puis de 
reoliser un transfer! de Jo 
maniere suivante : 
* BQ6 32DM,.. et le 

tour est joue ! 



Vous constatez que votre 
Apple se debrouille, plu- 
tot bien quand il s J agit 
d'affkher des inepties ! 



1QB PRINT CHR$ C4)"PR£3": PRINT 

110 VTAB 10: HTAB 3: PRIMT "<L> 4Z COLONNES <2> 80 COLONNES 

"?s CALL - 198: GOSUB 150:N = PEEK C - 16364) - 48 
115 IF N < > 1 AND N < > 2 THEN 130 

120 POKE 6,166: CALL 2054: POKE 6.32: REM EFFACEMENT DO CADR 

E ANTERIEUR EVEMTUEL 
125 PRINT N = N - 48: POKE 2060,1 + 40 * N: POKE 2867, (40 * 

R) - 2: PRINT CHR$ C 16 + N>: CALL 2054 
130 IF H < > - 21 THEN 110 

135 CALL 2054: VTAB 22: HTAB 3: PRINT "<1> MENU DE DISOUETTE 
<2> TERMINE CALL - 198: GET R$: PRINT : IF R$ = "1* 
THEM PRINT CURS (4)" RUN MENU" 

140 IF R$ = "2" THEN PRINT CHR$ C21): HOME : END 

145 GOTO 135 

158 POKE - 16368,0: WAIT - 16384.128,127: POKE - 16368,0: PR 
INT s RETURN 

100 REM X ERRORS ONERR § VTAB ) RETURN WITHOUT GOSUB h * = C 
AN'T CONTINUE VTAB § b ERR0R§ § ERRORS ONERR 9 RETURN tfl 
THOUT GOSUB h RETURN WITHOUT GOSUB h * = ILLEGAL QUANT 
ITY VTAB & RETURN WITHOUT GOSUB h * = CAN'T CONTINUE DI 
M h PLOT TYPE MISMATCH V 



AMUSEZ VOUS UN PEU ! 

Si vous examinez I'extrait de lo memoire de 
votre Apple apres le BLOAD.,. ou le TRANS- 
FER!, vous constaterez que les octets $801-802 
conttennent I'adresse de Ja figne suivante, en 
1'occurrence la ligne 105. Essayez done de rem- 
placer $35 (en $801), par $47 (lu a I'adresse 
$835), puts listez votre programme : la ligne 
105 a tout bonnement disparu, ce qui ne gene 
en rien le fonctionnement de la routine. On ne 
commencera plus par un PR£3 et e'est tout ! 
Mora lite : a la suite d r une ligne de REM, on 
peut s'offrir certaines libertes ! 

UN DERNIER CONSEIL 

Vous serez peut etre tente de supprimer le 
REM... mais je vous promets que votre Apple 
n'aimera pas cela du tout. Par contre, si vous 
desirez modifier le numero de I'actuelie ligne 
100, vous y etes autorise. II est contenu dans 
I'adresse $803 ($64). 



PROLONCEMENT... 

A parHr du m§me programme, changei Ja ligne 100 pour ; 

100 TEXT: HOME 

tGl REM + ,46as1en$que5 

Ajoutez un POKE 2049,61 a la ligne 105, el -h 8 un peu par- 
tout : CALL 2362 : POKE 2068 ; POKE 2095.,, sans Hen oublier 
ef sue foul pas de toper un POKE 2049,61 . 
Ensuile : BLOAD GREFCADRE r A$8GE Vous aurez ceei : 



6880- 



BB18 
8818- 
6828 
8626- 
8838 
8B3B- 
W$< 
8848- 
8858* 



88 3D 
88 3D 
FC A5 
CA D6 
28 16 
28 ED 
28 ED 
8D F7 
88 BA 
52 23 
88 



88 44 
B8 65 

86 A2 
FA A2 
FC A5 
FD CA 
FD CA 

87 6B 
E7 28 
33 22 



88 69 
B8 B2 
29 28 
16 28 
06 2B 
DB EF 
08 FA 
Bfl 4F 
34 2? 
3fl BA 



3A 97 
29 58 
ED FD 
62 FC 
ED FD 
A2 26 
84 25 
88 69 
22 58 
80 ?A 



II n y a plus de 
ligne 101, mais le 
programme 
fane Hon ne, 

Vous trouverez la 
ligne 101 per 
LOAD ef LIST, 
mais elle 
disporatfra de 
nouveau apres un 
RUN (lePOKEde 
la ligne 105 !). 
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L'TILITAIRE FW 



ProDOS 



Patrick QUETTIER 



Double haute resolution 

■■■■■■■■■■■■■■■■■■■■■■■■■■■1 

sur imp rim ante EPSON 



RAPPELS SUR LA DOUBLE RESOLUTION : 
On obtient une definition de 560 points sur 192 points. 
Elle occupe 8184 ( = $1FF8) octets de 8192 ( = $2000) a 
16375 ( — $3FF7) simultanement en RAM Apple (colonnes 7 
a 13, 21 a 27, etc.), et en RAM carte 80 colonnes (colonnes 
o 6j 14 6 20, etc.), II est possible d'enregistrer sur dis- 
quette un te! graphique. Un moyen tres simple est de le 
stacker sous forme de deux fichiers binaires. Pour enre- 
gistrer un graphique sous le nam N$= "DESSIN", par 
exemple, il faut utiliser le petit programme suivant : 

5 A$ - "300 : 38 BO 01 18 A2 20 86 3D 86 43 A2 00 86 3C 
86 42 CA 86 3E A2 3F 8D 00 CO 20 11 C3 8D 01 Cff 60 
ND7D2G" 

6 FOR I = 1 TO LEN(AS) r POKE 511 + 1, ASC(MID$(A$, 
1,1)) + 128: NEXT: POKE 72,0: CALL- 144 

TO PRINT CHR$(4) r 'BSAVE"N$MMP, A8192, L8184": CAU 
768 + 3: PRINT CHR$(4) "B$AVE ,r N$".PAI,A8192, 
L8184" 

On obtient ainsi deux: fichiers binaires appeles DES- 
5IN.IMP (colonnes 7 a 13 r 21 a 27, etc.)- et DESSIN, PAI 
(colonnes Q a 6 r 14 a 20, etc.). De la meme facon, pour le 
recharger en memoire, il faut utiliser ce programme : 
5 et 6 fnchangees 

20 PRINT CHR$(4) J 'BLOAD"N$ ,r .PAI,8192 fl : CALL 768 : 
PRINT CHR${4) "BLOAD"N$" J/WP , A8 1 92" 

Pour basculer Toffkhage en mode graphique double hcu- 
tre resolution, il faut (le mode 80 colonnes etant dejd mis) 
utiliser la ligne suivante ; 

3ff POKE 49246,0: POKE 49239,0: POKE 49234,0! POKE 
49232,0 

Pour avoir un mode mixte (4 lignes de texte en bas), il 
faut rem placer 49234 par 49235. 

Pour revenir au mode texte standard, i! faut faire : 
7a POKE 49233,0: POKE 4923B.G: POKE 49247,0 

L'Apple n'a pas Ja posslbilite de creer ses propres gra- 
phiques (sous Basic) comme il le permet pour la haute 
resolution standard (HPLOT, etc.)... Toutefois r les posses- 
seurs d'une corte Chat Mauve, pourront utiliser le bgiciel 
ARLEQUIN (fourni avec FELINE) ou PURPLESOFT (fourni 
avec la carte EVE) et travailler en double haute 

iHiiiiiniiiiiiiiiiiiiMiiiMiiniiiifimiiiHii 
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resolution, II faut remarquer que ces logiciels fonction- 
nent oussi avec une carte 80 colonnes etendue (le DES- 
SIN, 1 de lo disquette Tremplirt Micro a ete realise de cet- 
te facon), mais que seul ARLEQUIN fonctionne sur le lie ! 

UTILISATION DE LA ROUTINE DANS UN 
PROGRAMME BASIC (precautions) : 

Pour eviter tout conflit de memoire entre le Basic, la 
page graphique haute resolution et la routine en langage 
machine, il est souhaitable de charger le Basic [par exem- 
ple) au-dessus de la page graphique ; c'est-6-dire a partir 
de 16384 ( = $4000). Sous DOS 3,3, cela laisse environ 21K 
octets de libres pour le Basic et ses variables. On peut 
obtenlr ce resultot de 3 facons : 

entrer au clavier POKE 103,1: POKE 104,64: POKE 
16384,0 puis RUNer le programme basic. 

— ecrire un petit programme Basic qui lancera le pro- 
gramme Basic principal (cest le cas de DEMO. 
LANCE). 

10 POKE 103,1: POKE 104,64: POKE 16384,0: PRINT 
CHR$(4) ; "RUM Programme principal" 

— placer en tete du programme principal la ligne : 

1 IF PEEK(104) <3> 64 THEN POKE 103,1: POKE 
104,64: POKE 16384,0; PRINT CHR$(4) "RUN 
Programme", 

UTILISATION DE LA ROUTINE DANS UN 
PROGRAMME BASIC (mode d'emploi) : 

La routine machine mise precedemment en place par 
les lignes 5 et 6 est id inutile cor COPIE.HGR16,EPS la con- 
tient, Le programme Basic devra, des le debut, conlenir la 
ligne suivante (les numeros sont donnes a titre indicatif) : 
1 PRINT CHR$(4) ,r PR£3 ,J : PRINT : PRINT CHR$(4) "BLOAD 

COPIE.HGR16.EPS" 

L'objet de cette Jigne est d'initialiser la carte 80 colon- 
nes et de charger en memoire la routine en langage 
machine. 11 faut ensuite charger la page graphique a 
imprimer 6 partir d'une disquette. Voir plus haut I'exem- 
ple de la ligne Basic numero 20. On peut ensuite l h aff icher 
a Ja video (ligne numero 30). Avant de lancer ['impres- 
sion, il est necessaire de regler deux poramefres de la 

GUY-HACHETTE 



routine binaire. On peut evidemment ne pos le faire et 

laisser les valeurs par defaut dejo presences. 

40 POKE ENTREE + 13.X (avec X comprts entre O et 33). 

Cela correspond a !a tabulation horizontals du dessin 

sur la feuille (0 = a gauche, 33 - a droit©). La valeur 

prise par defaut est X = (reglage I), 
5CT POKE ENTREE + 14, Y avec Y = (dessin en positif) 

ou Y = 255 (dessin en negatif). La valeur prise par 

defaut est Y = (reglage 0)> 

II faut alors lancer I'impression ; 
60 PRINT CHR$(4) "PR£T ,f : PRINT : POKE 1657 ,60 : CALL 

ENTREE: PRINT CHR$(4) "PRW" 

On peut ensuite remettre la page texte a Tecran 
(ligne numero 70 page 12). En utilisant CALL ENTREE + 3 
an execute une copie d'ecran a I'echelledeux* 

EN RESUME : 

Void, com me exemple, un (mini) programme qui uti- 
lise la routine pour imprimer un graphique appele DESSIN 
en negatif et a droite de la feuille : 

I com me ci-dessus 

10 D$ = CHR$(4} : PRINT D$ r PR£T ; PRINT DJ BLOAD 

COPIE.HGR16.EPS" 
15 N$ -"DESSIN" : ENTREE -2048 
20 PRINT D$ M BLOAD fi N$" .PAI , A8192" ; CALL ENTREE + 6 

; PRINT D$ ,t BLOAD ,, N$ i \IMP, A8 W 
30 POKE 49246,0 : POKE 49239,Q : POKE 49234,0 : POKE 

49232,0 
40 POKE ENTREE + 13,33 
50 POKE ENTREE + 14,255 

60 PRINT D$"PWr : PRINT ; POKE 1657,80 : CALL ENTREE 

; PRINT D$"PR£3" 
70 POKE 49233,0 ; POKE 49238,0 : POKE 49247,0 

MODIFICATIONS POSSIBLES : 

Apres Timpression, Timprimante se femet en interli- 
gne l/8 e de pouce. Pour obtenir 1/6* de pouce, il faut 
faire POKE ENTREE 4- 12, 178 avant de lancer la routine 
(reglage G). On peut aussi choisir de loger la routine a 
une autre adresse. Pour cela, il faut assembler le fichier 
COPIE. HGR16. EPS. S apres avoir defini ORG avec la nou- 
velle valeur choisie pour ENTREE. 

NOTE DE WAN KOENIG : 

Tremplin ne possedant pas dimprimante EPSON, j ai 
ete amene d intervenir sur le programme de- Patrick 
QUETTIER pour en controler le bon fonctionnament, 

Aucun probleme si ce n'est avec la routine de charge- 
ment qui, chargeant directement DESSIN. PAI en memoirs 
auxiliaire provoquait des bruits desagreables au niveau 
du lecteur de disquettes ce qui m'a conduit a introduire la 
routine de tronsfert MAIN 4—+ AUX* 

II m'a semb!e interessant de mettre en ceuvre quelques 
modifications annexes ; 

ajout de Toption faille 2 

echange des positions des modules programme et 
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table d J adresses afin de permettre de coupler cette 
routine avec un programme relogeur semblable a 
celui de PROJYPC (Trempfin Micro n°9) pour placer 
la routine entre ProDOS et ses buffers. 
Pour les lecteurs ne disposant pas de la disquette 
Tremplin, j ai ajoutedeux programmes d'aide. 

Si vous tapez directement le code objet, FAIT, 
ADRESSE va generer pour vous la table d cidresses, il vous 
suffira apres avoir tape la partie programme de faire 
BLOAD ADRESSE puis BSAVE COPIE.DHGR.EPS, AS80O, 
LS300 . 

Si vous saisissez la source en assembleur c'est FAIT. 
T, ADRESSE qu J il vous faut. Si vous travaillez ovec MERLtN, 
supprimez la ligne 125 puis faites RUN FAIT. T. ADRESSE. 
Vous pourrez charger la source de la table sous MERLIN 
en foisant appel a la comrnande R(ead] ADRESSE [ne pas 
taper le prefixe T.). Si vous travaillez avec un LISA (1.5, 
2,5, 2.6) la ligne 105 est pour vous. Creez votre ficher 
T. ADRESSE par un run FAIT. T. ADRESSE. Sous LISA il vous 
suffira de faire CTRLD EXEC T. ADRESSE pour voir le code 
source se mettre en place automatiquement. 

Pour les lecteurs qui souhaitent travailler avec la rou- 
tine entre ProDOS et ses buffers nous publions un module 
relogeur qui permet d'effectuer le deplacement de la rou- 
tine en corrigeant les adresses qui do&venl I'etre, Ce 
module peut etre configure en relogeur simple comme ici 
oo en relogeur d'une comrnande externe comme 
PRO.TYPCde Tremplin n°9. 

Dans le but d'eviter la publication repetitive du meme 
module* celui-d a ete conc,u de facon a rendre son adap- 
tation a chaque cas aussi' simple que possible. Apres 
avoir tape le code faites BSAVE RELOPRO10, A$60D5, 
L$12B 9 Pour utiliser avec un module comrnande externe, il 
faudrait modifier la zone 612D-613B et faire 61SD: fiD 07 
BE (STA EXTRNCMD+1). Par ailleurs : 
60D6 contient le nombre de pages utilisees par la routine 
6148 8t614C = ENDPROG-1 (octet bas/octet haut) 

6151? et 61 54 = ENDALL-1 

619D et 61A1 = ENDADRS-1 ......... , 

619A vaut 9@ s'il y a une table d'adresses, 60 sinon 
61 B5 vaut 90 s'il y a une table de donnees, B0 sinon 
61C0/61C1 peut necessiter une adaptation. 

Le module actif necessite quelques ajustements* Je 
suppose que vous avez sauve RELOPRO10 et COPIE, 
DHGR.EPS. Faites BLOAD RELOPRO10 puis BLOAD 
COPIE. DHGR. EPS, A$6200. 
Maintenant attention, on ajuste ; 
Places $62 en 6202, 6205, 6208, 620B, 6242, 624B, 624E, 
6251, 625B, 6261, 626B, 62B9, 62BF r 62E2, 62FQ, 6330 

Placez $63 en 6268, 6272, 6278, 6270, 6282, 6299, 
62BC, 62E7, 62FD P 6303, 6318, 631 D, 632A 
Placez $64 en 629E 

$6257 : 78 63 $625D ; 7C 63 

$62F1 : 00 00 00 00 00 0a 00 00 

$6378: EA EA 26 FF 2F 62 30 63 

BSAVE RELCOPYDHGREPS, A$60D5 r L1067 qu'il foudra 

transferer sous ProDOS ovec le FILER. 
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Sf VOUS 

n'utilisez 
pas un 
assembleur, 
vous n'avez 
rien a taper 
dans cette 
page,,. 



! 
2 
3 
4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 



51 
52 
53 
54 



***##*****#*****»*****#***»#«###* 

* * 

Copie double haute-r£solution 

* i 
Imprimante Epson parall&le 

* 1 
Patrick QUETTIER 

* * 
76190 Yvetot 

* * 

Assembler MERLIN BIG-MAC 

ft******************************** 



Revision 25/04/86 



D£but : 
Fin: 

Longueur: 

Table: 

Longtable 



2048 
2815 

766 
2432 

384 



$08,00 
$0A . FF 
$03,00 
$09.80 
$01 .80 



##* ######## ##**##**#* 
Variables utilises par le programme 

RAM MAIN = RAM carte m£re 
RAM AUX = RAM carte 80 cols 



28 


Slot; 




1 


29 


FLAG 




6 


30 


CSW 




$36 


31 


START 




$3C 


32 


END 




$3E 


33 


DEST 




$42 


34 


SAUVTAB 




237 


35 


C0BITVT 




239 


36 


HGR 




249 


37 


VTAB 




251 


38 


COBITHT 




254 


39 


COLONNE 




255 


40 








41 


ENTREE 




$800 


42 








43 


STOR800F 




$C00O 


44 


STORE80 




$C001 


45 


TXTPAGE1 




SCO 54 


46 


TXTPAGE2 




$C055 


47 


LORES 




3C056 


48 


HIRES 




$C057 


49 








50 


CR0UT 




$FD8E 



:1-RAM AUX CI) - RAM MAIN CO? 
:2-Adresse sortie caracteres 



;i-Sauvegarde de VTAB 
;1-Ccmpteur bits de COLONNE 
:2-Adresse en page HGR de la RAM 
; I -Tabulation verticale a 191 
;l-Compteur bits octet RAM HGR 
;l-Colonne a imprimer 

; 2048 en decimal 

;Uti 1 isat ion pages carte 80 
iCommute RAM MAIN 
; Commute RAM AUX 
:Page texte 
:Page HGR 



ORG ENTREE 

*#*#*##*###*##*##*#*####**###»## 
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55 


#D6but du programme - Appel par le basic 










bb 








0600 : 


At 1 

4L 


JU 


Uo 


o f 


JMP 


TA1LLE1 


; CALL ENTREE 




AO 

4L 


on 
OD 


Uo 


Do 


JKP 


TAILLE2 


; CALL ENTREE +3 


0806 3 


4L 


n i? 


Uo 


CO 


JMP 


MAIN AUX 


; CALL ENTREE+6 


0809: 


4C 


12 


08 


60 
61 


JMP 


AUX MAIN 


; CALL ENTREE+9 










62 


Table de 3 octets pouvant rester dans 










63 


la zone programme en cas 


d^adjonct ion 










64 


d'un module 


relogeur qui 


croirai t 










bD 


y trouver un 


BCS ... sui v\ d'un BRK. 










66 








QoUL I 


B0 






6 t 


INTERLIG DFB 


"0" 


:Reglage POKE ENTREE+12. 176/178 


UoUJJ : 


Uu 






68 


MARGE DFB 





; Reg i age POKE ENTREE* 13, marge 


080E: 


00 






69 

■7 n 


MASQUE DFB 





;Reglage POKE ENTREE+14, 0/255 










71 


###**«##*###****##«***«##*##**## 










72 










do 








MAIN AUX SEC 






ftQ( ft , 

Q81U : 


EXJ 


1 




r b 


BCS 


MOVER 


:Tou jours 


Uol ^: 


1 O 






fo 


AUX MAIN CLC 






uolo: 










MOVER LDX 


f>$2000 




nQi c * 


ob 






70 

to 


STX 


START+1 




ndi "7 * 

Uol f ; 


O c' 
OD 


vlO 

4o 




fT 


STX 


DEST+ 1 




UolVt 


t\£ 


n n 
UU 




oU 


LDX 


£<$2000 




Hold: 


86 






ol 


STX 


START 




noi Hi 

Uol JJ i 


DO 


.A o 
H£ 




oo 
U£ 


STX 


DEST 




0B1F : 


CA 






QO 

83 


DEX 




;X=FF = £<$3FFF 


0820 : 


86 


3E 




84 


STX 


END 




0822: 


A2 


3F 




85 


LDX 


£>$3FFF 




Udi4 : 


ob 






ob 


STX 


END+1 




0826: 


8D 


00 


CO 


87 


STA 


STOR800F 








1 1 


PO 


ao 

oa 


JSR 


•can 


;Copie MAIN <-> AUX 


nooft * 
Uo^C * 


on 


U I 




aa 
07 


STA 


STORE80 




flOOTT 1 * 

UoJE : 


bu 






on 
VI 


RTN RTS 
















***##********** ***** #**###****** 










oo 

TO 








0830: 


A9 


01 




94 


TAILLE1 LDA 


£2-1 




riD'a') * 
Uoo*s : 








vb 


PHA 




icompteur pour modif 


n do o ■ 


A o 


n o 
U8 




o^ 


LDX 


£8 




Ub ab : 


a n 


OA 




Q '7 


LDY 


£<560 




U8i r : 




n o 






LDA 


£>560 




UdoV: 








OQ 
77 

1 nn 
1UU 


BNE 


AJUSTE 


;Tou jours 


noon * 


AO 


n o 




1 U 1 


TAILLE2 LDA 


£4-1 




noon t 


48 






1 U£ 


PHA 






083E; 


A9 


00 




103 


LDA 


£0 




0840: 


6D 


0D 


08 


104 


STA 


MARGE 


;Marge nulle si double 


0843: 


A2 


04 




105 


LDX 


£4 




0845: 


AO 


60 




106 


LDY 


£<1120 




0847: 


A9 


04 




107 


LDA 


£>1120 


(suits page 16) 
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0849 ; 

064C: 

084F: 

0852 i 

0853: 

0854: 

0856: 

0859 s 

085C: 

085F: 

0862: 

0863: 

0864: 



8E 92 08 
8C 7A 08 
8D ?F 08 
68 
Aft 

AO 01 



BD Fl 
99 AD 



08 
08 

BD F5 08 
99 BE 08 
CA 
88 

10 FO 



0866: 20 OA 09 



0869: AE OD 08 
086C: FO 08 
086E: A9 AO 
0870: 20 20 09 
0873: CA 

DO FA 



0874: 

0876: 
0879: 
087B: 
087E: 
0880: 



20 26 09 
A9 30 
20 2D 09 
A9 02 
20 2D 09 



0883: A5 FB 

0885: 85 ED 

0887: AO 01 

0889: 84 FE 



088B: 
088D: 
088E; 



84 06 
88 

2C 55 CO 



0891: A9 08 
0893: 85 EF 



089S 

0897 

089A 

089C: 

089F: 



A6 FB 
BD 80 09 
85 FA 
BD 40 OA 
85 F9 



08A1 : BI F9 
08A3: A6 FE 
08A5: 4A 
08A6: CA 



108 

109 
110 
Ml 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 



AJUSTE 



STX 

STY 

STA 

PLA 

TAX 

LDY 

LDA 

STA 

LDA 

STA 

DEX 

DEY 

BPL 

JSR 



LBL1+1 

LBL8B+1 

LBL8H+1 



£2-1 

VARITBL1 ,X 
LBL31 ,Y 
VARITBL2 t X 
LBL32+i,Y 



SL 

INITIMP 



EPSON 



(suite) 



Impression de la page HGR 
LBLO 



LBL9 



LBL8 
LBL8B 

LBL8H 



LDX 


MARGE 


BEQ 


LBL8 


LDA 


£ II II 


JSR 


PRINT2 


DEX 




BNE 


LBL9 


JSR 


ESC_L 


LDA 


£ <560 


JSR 


PRINT1 


LDA 


£>56Q 


JSR 


PRINT1 


LDA 


VTAB 


STA 


SAUVTAB 


LDY 




STY 


COB1THT 


STY 


FLAG 



;Het la marge de debut de ligne 
:Si marge nu H e 



LBL1 
LBL2 



LBL3 



DEY 
BIT 

LDA 

STA 

LDX 
LDA 
STA 
LDA 
STA 

LDA 
LDX 
LSR 
DEX 



TXTPAGE2 
iB 

COBITVT 
VTAB 

GBAS„HI t X 
HGR+1 
GBAS^LO.X 
HGR 

<HGR),Y 
CGBITHT 
A 



;U20 si double (octet bas) 

;1120 si double (octet haut) 
;pour 560 aiguilles (1120) 

:Sauvegarde VTAB 

;COBITHT-l 
;FLAG=i 

?Y=0 (HTAB par le registre) 
: Commute RAH carte 80 

;C08ITVT=8 (4 si mode double) 
:HGR=adresse debut ligne VTAB 



:A-octet page tiGR en CHTAB, VTAB) 
;R^cupere bit COBITHT de A 



GUY-HACHETTE 



08A7: 


DO 


FC 




162 




BNE 


LBL3 




08A9 : 


08 






163 




PHP 






08AA : 


26 


t— v r> 

FF 




164 




nn t 

ROL 


COLONNE 


rAjoute ce bit 4 COLONNE 


06AC: 


28 






165 




r>iT tv 

PLP 






08AD: 


EA 


EA 




166 


LBL31 


HEX 


EA^EA 


nnr niuin _i _■ ■ ■ 

;R0L COLONNE en mode double 


08AF : 


E6 


FB 




167 




INC 


VTAB 


;Calcule prochain VTAB <+l) 


08B1 : 


CS 


EF 




A J*" fV 

168 




DEC 


COBITVT 


.•Continue pour C0BITVT=8 a i 


0BB3: 


DO 


E0 




169 




BNE 


LBL2 












170 










08B5 : 


AS 


FF 




171 




LDA 


i"iaf\T /Mill ri 

COLONNE 


;Envoie COLONNE & 1 ' impnmante 


08B7: 


40 


0E 


08 


172 




EOR 


MASQUE 


;R^glage 


ri n n 7i 


20 


2D 


r* /v 

09 


173 




inn 

JSR 


PRINT! 




08BD : 


20 


2F 


08 


174 


LBL32 


JSR 


RTN 


:JSR PRINT10 en mode double 










175 










08C0 : 


£6 


FE 




176 




INC 


Ann t mi T-n 

COBITHT 


; COB I Trn =CGB I THT+ 1 


08C2 : 


A5 


FE 




A T ""3 

177 




LDA 


COBITHT 




G8C4 : 


fir, 
C9 


08 




178 




if r> 






UBC6 : 


90 


OF 




1 79 




TV (^1 

BCC 


LBL4 


: C0BITHT<8 continue meme octet 










180 








; I c i C= 1 


U bCo : 


A9 


01 




181 




LDA 


f 1 


:Cas C0BITHT=8 change d octet 




85 


FE 




182 




CP Ji 

5TA 


PflD T TUT 

COBITHT 


:0UBI I nl= 1 


Q8CC; 


E5 


06 




ri n Ci 

183 




SBC 


FLAG 


: l->0 0->l 


G8CE : 


85 


06 




i O A 

184 




STA 


(TIT fl /** 

FLAG 












185 








;0n passe en RAM MAIN pour 


08D0: 


F0 


05 




186 




BEO 


LBL4 


tie meme HTAB si FLAG=0 










187 








;0n passe en RAM AUX pour 




C8 






188 




1NY 




;HTAB=HTAB+1 si FLAG=1 




CO 


^8 




189 




CPY 


£40 




rt ri c & 

08D5 : 


F0 


OC 




190 
191 




BEO 


LBL5 


;Cas HTAB=40 ligne suivante 


08D7: 


A5 


ED 




192 


LBL4 


LDA 


SAUVTAB 


;Cas continue meme ligne 


08D9; 


95 


FB 




193 




STA 


VTAB 


;R6cup6re VTAB 


08DB r 


A6 


06 




A n A 

194 




LDX 


FLAG 


: Commute la page FLAG 


r~i ("j ri Ti . 

D8DD : 


9D 


54 


CO 


195 




STA 


TXTPAGE1 t X 




08E0 i 


4C 


91 


06 


196 




T \J TV 

JMP 


LBL1 












197 










08E3; 


A9 


8D 




198 


LBL5 


LDA 


£l3+$80 


;CR 


fl SPG ■ 


20 


20 


09 






ion 

JSR 


PRINT2 


; f i n de la 1 i gne 


08E8: 


A5 


FB 




200 




LDA 


VTAB 


; Continue pour VTAB=0 k 191 


08EA: 


C9 


CO 




20 1 




CMP 


£192 




08EC: 


F0 


0B 




202 




BEQ 


FIN 




a n.nrv 

D6EE: 


4C 


69 


08 


203 




JMP 


LBL0 












204 


















205 


a************ a****************** 










206 










08F1 : 


EA 


EA 




207 


VARITBL1 


HEX 


EA, EA 


; NOP NOP en mode simple 


08F3: 


26 


FF 




208 




POL 


COLONNE 


: si mode double 










209 










08F5: 


2F 


08 




210 


VARITBL2 


DA 


RTN 


; JSR RTN en mode simple 


08F7: 


30 


09 




211 




DA 


PRINT10 


; JSR PRINT10 si mode double 



212 
213 

214 Tout ce qui suit fonctionne avec (suite page 18) 



TREMPLIN MICRO 



t f 



215 I IE ou //• et Imprimante parallele EPSON 
' lb I] serai t n^rf><»airo *~ - m * < 



219 



serai t necessaJre de modifier 
pour //c et Imprimante serie E 



220 Fin - Retour au basic 
221 



08FB: 20 20 09 223 ™ £?S5° f ^Primante remise en interl igne 

Si: f c 2 £ ^ * S?2 LIG 

0907s 227 ;£ SS? 

228 

09OA:A9O0 1 INITIMP rnfi „ 

090E: 8D 01 CO 9<u ™» 

0911: S SW ST0RE8 ° 

241 

SSI £ S oS LI " ,I " B S 53!" 
244 



CCSW) 



245 *****####**##*#*##*»** # *****^# 
246 

0926: A9 IB 247 w<ir r rm 

0928: , 2D 09 248 ^ S£ PR I NT 1 '** 

092B! ' 249 LDA £^ 

250 LWft f L :mode double densite 

251 Saut a I' imprimante EPSON parallel e 

QMS: 2C S n S PRINT1 BIT ^TPAGEl 

°933i 30 FB S PRINT1 ° BIT Slot*$100 + *C0Cl 

0935 8 u9 0D 256 S ™ 10 

0938: Sf STfl Slot*$10 + *C080 

258 
259 

260 » 

261 Logiquement. la carte EPSON HON graphique 
am doit foncticnner ega lenient 

263 cf: POM'S 17 

264 On laisse de la place pour les 
^ modifications pour sortie serie 

bOO # » ' ^ 

267 DS $980 -# 




GUY-HACHETTE 



093C: 
0944 s 
094C: 
0954: 
095C: 
0964: 
096C; 
0974: 
097C: 



00 
00 
oo 

00 
00 
00 
00 
00 
00 



00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 



00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 



SUITE 
DELA 
PAGE 18 



Et maintenant, suivant que vous utiliserez ou 
non un assembleur, tapez ) r un de ces deux 
programmes d'aide (lire page 13). 

FAIT.ADRESSE 



1 


REM "FAIT.ADRESSE 




10 


PRINT CHR$ (21) 


A455 


20 


TEXT i HOME 


ICS A 


30 


HGR : TEXT 


7854 


40 


VTAB 10; PRINT " PATIENCE, JE CO 






KSTRUIS LA TABLE" 


037E 


50 


Dl = 2432:02 ■ Dl + 192 


1E69 


60 


FOR I = TO 191: HPLOT CM 


4298 


70 


POKE Dl + I, PEEK (39) 


AFOA 


80 


POKE D2 + I , PEEK (38) 


1D0A 


90 


NEXT 


0582 


100 


PRINT CHR$ <4)"BSAVE ADRESSE.A 






$980,L384 U 


D14B 



F A IT. T. ADR ESSE 

1 REM "FAIT.T.ADRESSE 

10 PRINT CBR$ <2L> A455 

20 TEXT s HOME 1C5A 
30 HGR : POKE - 16302,0: POKE - 

16303,0: REM "Retour en TEXT 01BA 
40 VTAB 10: PRINT "PATIENCE, JE CO 

NSTRUIS LA TABLE" 037E 

50 Dl = 16384:02 = Dl + 192 65A4 

60 FOR 1 = TO 191: HPLOT 0,1 4298 

70 POKE Dl + I, PEEK <39) AFOA 

80 POKE D2 + I, PEEK (38) 1D0A 

90 NEXT 0582 
100 POKE 768,169: POKE 770,76: POKE 

771,218: POKE 772,253 CA06 
110 CI - 768:C2 = 769:DS = CHR$ (4 

) EDEC 

115 PA = 0:X - Dl; PRINT D^MONCD" F684 
120 PRINT D$"0PEN T.ADRESSE" : PRINT 

D^" WRITE T.ADRESSE" 4815 
125 PRINT "INS": REM "Pour LISA, In 

utile avec MERLIN 90E8 

130 PRINT "GBAS_HI = *■ EAB2 

140 FOR 1=0 TO 23; PRINT " HEX * ; ED88 
150 FOR J = TO 7: POKE C2, PEEK ( 

X):X = X + 1: CALL CI: NEXT 0E8B 

160 PRINT : NEXT 6576 
170 PA = PA f 1: IP PA = 1 THEN PR 

INT 1 GBAS_LO - * H : GOTO 140 BASE 

210 PRINT D$"CLOSE u DBDC 

220 PRINT D$ u NOMONC0 1 ' 4B7F 



DOUBLE HAUTE RESOLUTION SUR IMPRIMANTE EPSOM LOniinue page ZO, 



Off rez-vous 31 routines 



mises au point par un special iste : 
Yvan KOENIC 



Vous avez souvent besoin de routines en langage machine 
pour completer ^APPLESOFT, mats voire page 3 debor- 
de ? Ne vous enervez pas, AMPERELO est la avec ses 31 
routines RELOGEABLES (plus de probleme d'im- 
plantation [) : 

PRINT USING aux normes fran^aises, tri rapide, Input 
controle, recherche dans un tableau, position d'une sous- 
chaine dans une chaine, remplacement d'une sous-chaine 
par une autre dans une chaTne, SWAP de variables ou de 
tableaux, garnissage de tableaux, D1MDEL, IF THEN ELSE, 
GET numerique controle, PEEK et POKE sur deux octets, 



ils sont tous la. Et cela sans vous obliger a 6tudier le Ian- 
gage machine. 

MOSAIQUE vous permettra en outre de eouper-coller 
les modules dont vous aurez besoin. 
En prime, LECTURE.SOURCES vous servira a lire sans 
assembleur, toutes les sources MERUN/BIG/MAC. II 
vous permettra egalement de transferer en mode TEXT 
les sources binaires de MERLIN pour en autoriser le trai- 
tement sous ProCODE. 

Presentees en format DOS 3.3, les routines peuvent etre 
converges pour tourner sous ProDOS, 



UTILISE? LE OON DE COM MAN DE, A LA FIN DU JOURNAL. 



TREMPLIN MICRO 



19 



EPSON 



LA ROUTINE DE PATRICK QUETTIER est destinee a etre incorporee, pour son utilisation, 
dans un programme principal en Basic. Cette routine realise une copie sur imprimante 
d'une page graphique double haute resolution (560 points par 392 points). 

Son fonctionnement necessite la configuration suivante ; 

• Appel He equipe d'une carte 80 colonnes etendue (+ 64 K} ou d'une carte 
"FELINE" ou "EVE" Le Chat Mauve (80 colonnes couleur + 64 K). 

• Imprimante EPSON MX-80 F/T type II ou FX-80. 

• Interface imprimante : carte graphique EPSON (ROM B.APL ou D.APL). 

Avec une carte equipee d une ROM E.APL ou YK.APL on peut utiliser PRINT 
CHR(9) "80N" au lieu de POKE 1657,80 pour supprimer I'echo ecran, II semble 
que Ton puisse egafement utiliser la carte EPSON non graphique. 

Remarque : les premiers Apple He (revision A) ne peuvent travailler en double haute 
resolution (consulter APPLE, rl y avait une procedure d'echange lors de Tintroduction 
de la revision B). Moyennant quelques modifications des commandes im prim antes, la 
routine fonctionnerait sur un Apple He... a condition de I'equiper d'un adaptateur 
serie-parallele pour Timprimante EPSON ! 



Et voici RELOPRO 1 (mode d'utilisation page 13) 



4005: 


A9 


63 


20 


F5 


BE 


96 


4E 


AO 


16 


B9 


E9 


££5EB5 








6OE0: 


61 


23 


ED 


FD 


88 


10 


F7 


4C 


80 


BE 


04 


15 


64 


2A 


05 


14 


££4D64 


6@F0: 




2A 


16 


15 


04 


2A 


15 


15 


08 


2A 


4 


15 


84 


2A 


15 


14 


££C757 


6100: 


08 


28 


04 


15 


04 


2A 


15 


15 


08 


2A 


15 


15 


00 


2A 


15 


15 


££6151 


4133; 


08 


2A 


15 


15 


04 


2A 


05 


15 


88 


2A 


05 


15 


04 


2A 


15 


14 


££3547 




03 


28 


05 


15 


04 


2A 


15 


14 


08 


28 


85 


43 


85 


FE 


A9 


80 


££8AC5 


4130: 


85 


FD 


F0 


07 


20 


2C 


FE 


60 


EA 


EA 


£A 


A9 


00 


85 


3C 


85 


££EFD8 


6140: 


04 


A9 


62 


85 


3D 


85 


05 


A9 


7B 


S5 


3E 


A9 


63 


85 


3F 


A? 


££A0BB 


4150: 


FF 


85 


06 


A? 


64 


85 


07 


08 


A9 


00 


85 


42 


EA 


EA 


EA 


38 


££D341 


6160: 


E5 


04 


85 


02 


A5 


43 


E5 


05 


85 


03 


A3 


90 


61 


3C 


48 


29 


££93C8 


4179: 


03 


A8 


43 


4A 


4A 


AA 


8D 


EA 


48 


86 


33 


G4 


4A 


4A 


D8 


F9 


££2771 


4180 : 


29 


03 


AA 


A0 


86 


E3 


02 


90 


05 


C8 


28 


C2 


61 


88 


61 


3C 


££3A6D 


4190: 


91 


42 


20 


84 


FC 


CA 


10 


F6 


90 


D2 


90 


19 


A9 


7F 


85 


3E 


££1469 


61A0: 


A9 


63 


85 


3F 


20 


C2 


41 


A2 


01 


Bl 


3C 


91 


42 


20 


B4 


FC 


££C846 


61B0: 


CA 


18 


F6 


90 


EF 


90 


80 


A5 


06 


35 


3E 


A5 


07 


85 


3F 


4C 


££D589 


61C6: 


34 


41 


A5 


06 


Dl 


3C 


C8 


A5 


07 


F3 


3C 


90 


1A 


88 


A5 


04 


££4DC9 


41D0: 


01 


3C 


C8 


A5 


05 


Fl 


3C 


80 


0E 


88 


Bl 


3C 


65 


02 


91 


3C 


££1613 


41E0: 


C8 


Bl 


3C 


65 


03 


91 


3C 


38 


60 


8D 


87 


C5 


C3 


CI 


CC 


D0 


££DCCB 


61F0 j 


A0 


C5 


C4 


A0 


D3 


CI 


D0 


A0 


CI 


A3 


0? 


A7 


CE 


AO 


CC 


C9 


££8681 



Naturellement, 
vous ne devez pas 
recopier la signature 
de chaque Mgne 
(derniere coJonne). 

Vous pourrez verifier 

['exactitude 

de voire 

programme 

en utilisant 

la disquette 

que Trernpiin 

Micro met a voire 

disposition 

(lisez a ce propos 

le message de notre 

ami Yvon KOENIG, 

page 2 du precedent 

numero). 



BSAVE RELOPRO10p A$6flD5, L5128 



INIIIIIIIIIIIHItlll 

GUY-HACHETTE 



VERSION MODI Fl EE (b la suite de RELOPROI0) 



Si vous desirez 
utiliser voire 
routine de 
recopie d'ecran, 
vous serez sans 
doute omen© 
b la reloger 
grace 5 
RELOPROIQ 

Lisez olors 
les explications 
d'Yvan KOENIG, 
page 13 et 
n'oubliez pas que 
cette version 
travaille sous 
ProDOS. 

Pour vous aider 
voici la routine 
COPIE.DHGR.EPS 
ovec les 
modifications 
indiquees 
page ]3... 
et les signatures 
de controle, 






dp 


in 


X9 


AC 


Jo 


>£9 
OZ 


At- 


(jr 

or 


zo 
6z 


4U 


1 


zo 
6z 


D0 


a vj 


00 


00 

OO 


££232C 


A91 CI * 

OZ. It) i 


Rfl 


D 1 


1 Q 




zU 


DO 


oU 


O £ 
OO 


yl O 
40 


AO 

Hz 


ft f* 


bo 


OL 


06 


42 


CA 


££2800 


xo9n * 

OZZO ■ 


Oi 

QO 


ot 


AO 


nr 

or 


O / 
OO 


or 


or\ 
8D 


a n 




zo 


1 1 


Co 


8D 


01 


C6 


J! A 

60 


££o059 


X99H ■ 
GZ Jo * 


AO 

M7 


a i 

U 1 


Ho 


A9 
HZ 




Ho 


OO 


AO 

H7 




■!--. 


U0 


a c 
OC 


AO 


00 


j 


A? 


00 


££6992 


X9dG i 


OU 1 


an 


AO 


AO 

HZ 


W4 


H H 


z □ 
6U 


AO 


H4 


or 

ot 


7i 


x. 
6z 




/A 


J 

6z^ 


OA 


££1DC6 




7F 


X9 


jCQ 


MM 


Art 
HtJ 


a 1 


bL> 


70 


zo 
60 


O O 

yy 


AP\ 

mD 


OZ 


□ rS 
dD 


7C 


63 


00 

77 


££2B09 


X9Xfl ■ 


RF 


X9 


LH 


QQ 
DC 


1 


r v 


Zo 


QA 

tJH 


zo 
00 


AC 
Ht 


a n 
UU 


zo 

OZ 


Cfl 

r H 


Q O 
0O 


AO 


hB 


££D85D 


OA r V * 


9fl 
£. 


?fl 




rzv 


rvfl 
L/a 


CA 

rH 




9jt 
ZO 


Z9 
OO 


AO 
P17 


9fl 

00 


9<J 
ZO 


ors 
zL> 


OO 


AO 
M7 


□ 9 

Uz 


££9714 


6280 1 


20 


2D 


□ o 


AB ! 
nv 


PR 

r □ 


RS 


pn 


Ho 


fl1 


Hd 
Ot 


FP 

r c 


Qd 

CJ i 


R X 

d 


QQ 

O 


or* 
ZL 


JJ 


fe £ 70 /8 


6290 ■ 


pa 


A9 


0R 


J 


PF 

1 LI 


ZsZ 
MO 


PR 
r □ 




S^fl 


OO 




CA 

rH 


an 

DU 


ACk 
40 


Xd 
OH 


ee 
□D 


f f n too 


62A0 ■ 


P9 


R1 
□ i 


r ™ 


HO 


PP 
rC 


dZ\ 


LH 




FP 

r l 


fl P. 


9X 
Zo 


FF 

r r 


90 

ZO 


FA 
CH 


FA 
CH 


FX 
CO 


ttl Z3o 


62B0 1 


FB 


cx 


FF 

tr 


L' U 


l-'fl 


piij 


FF 




AF 


X9 

OZ 


9fl 
zo 


9^ 
zu 


XI 

00 


901 
Zo 


9P 

zr 


X9 
OZ 


1 1 ot zz 


62C0 I 


E4 


FF 


AS 

1 1 vJ 


r L. 


T9 


0R 

O D 


90 

7 u 


0F 


AO 
M 7 


1 


00 


FF 
r r_ 


P*o 

CD 


fl X 



00 


flX 

DO 


C C C O OA 

t t r zYft 


62D0 1 


F0 






U 




PR 


flr 

u 


ri*J 


pn 


R^ 




PR 


AX 

HO 


fl X 



on 


^d 


P0 

LO 


1 1 r 1 


62F0 1 


4r 


91 


49 


AO 
H / 


nn 

CPU 


z 


20 

ZD 


XI 
OO 


Ho 


PP 
Pp 


PO 


bo 


Pfl 

1 Q 





4C 


69 


fl jjpnri 

ttUur 1 




4? 


aa 

V o 


00 


00 





00 


001 


00 


flfl 


AO 
H 7 


OP 

TO 


90 
ZO 


90 

zo 


X9 


AD 


6C 


f C 0"7Q O 

t h ZYWz 


X10 » 


X9 


90 


90 


XI 



9T 


00 


rfl 


"ft* 


RP 


Fn 
ru 


AO 




□J 


FQ 
r D 


8D 


61 


E t Dh D 5 


XII " 


pa 


9r 


O r 






7D 


9fl 
Zv 


9fl 
ZO 


XI 
OO 


AO 
HT 




9fl 
ZO 


Zo 


ZO 
00 


A? 


88 


ttDEZo 


6120 • 


2P 


54 


Pfl 


xr 


14 


0fl 


H 7 


1 R 

1 D 


2fl 

ZD 


9R 

Zl/ 


49 
OO 


A9 

HT 


dr 

tL 


or 

ZL 


54 


C0 


tCCHOO 


6330 : 

WW WW 1 


2C 


CI 


CI 


30 


PR 


fin 


90 

7 O 


Pfl 
Lr D 


40 


00 

W V 







fl 


flfl 



00 


08 


1 1 y 1 






00 






fl fl 




flfl 
V 


DO 


flfl 


00 



00 
OO 


flfl 


00 



fl 


00 


00 


C £ tk a □ Q 




00 


00 

□ o 


00 


00 







00 




00 




flfl 


00 








flfl 


flfl 



00,90 


A f A A A A 

t kooU0 




00 


n n 
u 


fl 





fl fl 


u u 


tPcl 





flfl 


00 



flfl 


U 





DO 


00 


00 


£ A A A A A 

t h 00 O 


4370 I 


00 


00 
o o 


00 

W V 


00 
u 





n a 

U v 



U Iff 


flfl 


PA 


PA 
CM 


9X 

ZO 


FF 
r r 


9F 

zr 


X9 

/. 


30 


63 


1 1 U0 1 U 


AIRR 1 

O * J U L 1 i 


70 

£ u 


94 


9ft 


2C 

ZU 


10 


Id 


OO 


IP 

OLr 


90 
zo 


od 

Zt 


9P 
ZO 


or 

ZL 


9fl 
OO 


Od 

0** 


38 


3C 


ttl MtU 


4390 ■ 


21 


9S 


99 


9R 
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OU 


oc 

00 
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oo.no ■ 
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9F 
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JZ 
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99 
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9j£ 
ZO 
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9C 
Zt 
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OZ 


9Z 
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9F 

Zr 




97 
Or 


9R 


IF 

or 


99 
ZO 


97 
Z / 


9P. 


9F 

zr 


99 
do 


97 
/ 


3B 


3F 


£ a a 1 l a 
1 1 OO 1 


X9T0 * 




94 


9R 






o*t 


9fl 
OO 


9P 
OL 


9fl 
Ztf 


ZH 


9fl 
Zo 


9r 
zL 


9fl 
OD 


9A 


38 


3C 


££ 1 4E0 


■■' 1 1 1 ■ 
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9 t 
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9^ 


I? 


9rv 
zu 


9 1 
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00 




ou 


91 
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OS 
ZD 


90 
ZY 




9 1 
O 1 


oc 

OO 


3? 


3D 


t £A7F0 
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99 
ZZ 


9X 


9A 


9r 
zt 
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OH 


or 

ob 


OO 
ZZ 


OZ 
ZO 


OA 
ZH 
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zt 
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OZ 


z 
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3A 


3E 


A A O A ■ 

£ £2AB0 


XIFfl * 


ZO 


97 


9B 


9tT 

zr 
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00 


97 

or 


9D 
JD 


9C 

or 


99 
ZO 


97 

z/ 


9Q 
ZD 


9C 

zr 


OO 
OO 


O/ 


38 


3F 


A A A J A A 

££0619 


OtOil ■ 


9fl 


9^ 


9Q 


or 1 
zL 


OO 


OH 


OO 
OO 


OL 


OO 
ZU 


z4 


OO 
ZO 


or 
zL 


00 


34 


38 


3C 


A A 1 A ^ A 

£ £ 1 4E0 
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91 


nc 
4o 


9D 


9n 

ZU 
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oD 


99 
J7 


ou 


9 i 
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9R 
Z3 


90 


OA 

zu 
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Ol 


oD 


39 


30 


££A/F0 


Otto ■ 


99 
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9X 


9A 


zt 
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OZ 
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OH 


ot 
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ZO 


OA 
ZH 


oc 
zt 
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OZ 


OZ 

00 


3A 


3E 


££2A60 


4410 * 

U TOO i 


99 


97 


9 P. 
ZD 


9C 
Zr 


99 
OO 


97 


9D 
OP 


or 


99 
ZO 


97 
Z/ 


9P 
ZD 


9C 

zr 


00 
00 


0/ 


38 


3F 


A A A / 4 A 

££8610 
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Iff 
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fl fl 
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00 
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00 
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00 
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00 


06 


00 


00 


00 


u 


00 


00 
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R0 


R0 

00 
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Rfl 


R0 


Rfl 


S3 


80 


t t ULO 


6473: 


00 


06 


00 


00 


00 


06 


00 


60 


83 


80 


80 


80 


83 


80 

uv 


80 


90 




4499: 


28 


28 


28 


28 


28 


28 


28 


28 


A8 


A8 


AB 

n w 


A8 


A8 


A3 


A8 


A8 




6490 s 


28 


28 


28 


28 


28 


28 


28 


28 


A8 


A8 


A8 


A8 


A8 


A8 


A8 


A8 


££2580 


64A0 i 


28 


28 


28 


28 


28 


28 


28 


28 


A8 


A8 


A8 


A3 


A8 


A8 


A8 


A8 


££2580 


4480; 


28 


28 


28 


28 


28 


28 


28 


28 


A8 


A8 


A8 


A8 


A8 


A8 


A8 


A8 


££2580 


64C0: 


se 


50 


50 


50 


50 


50 


50 


53 


D0 


00 


D0 


D0 


D3 


00 


D0 


D0 


££3000 


6400: 


58 


53 


53 


50 


50 


50 


50 


50 


D0 


00 


00 


D0 


00 


06 


00 


D0 


££3D60 


44E9: 


58 


50 


50 


50 


50 


50 


50 


50 


D9 


D0 


D0 


D0 


03 


08 


D0 


00 


££3083 


44F0t 


56 


50 


53 


50 


50 


50 


58 


50 


D0 


06 


00 


D0 


08 


06 


00 


D0 


££3000 
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Jean-Paul ARNAUD propose cette pef ite demonstration 
aux amis qui possedent une SCRIBE. 



10 


REM * SCRIBE DEMO * 




318 


PRINT 




n r n A 

75BA 


26 


■ 

■ 


903A 


rt J-t rt 

320 


PRINT 


CHR* <27)"z" 


A2F9 


30 


REM J-P ARNAUD JUIN 1986 




330 


PRINT 


"BROUILLON EN-TETE" 


2AC6 


40 


* 


003A 


O A rl 

340 


PRINT 




/DBA 


50 


• 
■ 


303A 


350 


PRINT 


CHR* (15) 


/Ed 8 


68 


TEXT : HOME 


1 C5A 


360 


PRINT 


CHR* <27)"Q" 


D8F0 


76 


UTAB 4s HTAB 10s PRINT "* " 




OTA 

370 


PRINT 


"BROUILLON COMPRESSE" 


1 i OS 

/6B5 




< SCRIBE > "DEMO "#" 


59EA 


r% j-\ 

388 


PRINT 




75BA 


89 


INVERSE : SPEED= 195 


1E20 


390 


PRINT 


CHR* <27> Jl y" 


o o r* o 

88F8 


90 


UTAB 23: FOR I = 6 TO 2 STE 




400 


PRINT 


"BROUILLON COMPRESSE 






P - Is HTAB 2: UTAB I : PR1N 






1NDICE" 


i rei 

1 F51 




T "*" : NEXT 


720A 


410 


PRINT 




75BA 


100 


UTAB 2: HTAB 3: FOR I = 1 T 




4 2 8 


PRINT 


CHR* (14) 


A457 




37; PRINT IJ # JJ ; : NEXT 


4A66 


430 


PRINT 


"BROUILLON COMPRESSE 




ne 


VTAB 2! FOR I = 1 TO 5s HTA 






MIXTE" 




7B2C 




B 39: PRINT "*" ; NEXT 


D129 


440 


PRINT 




75BA 


120 


POKE 34,6 


8C82 


450 


PRINT 


CHR* <27> tt z" 


A2F9 


130 


UTAB 6: FOR I = 39 TO 3 STE 




A J fit 

460 


PRINT 


"BROUILLON COMPRESSE 






P - 1 s HTAB I : PRINT "*" ; : 






EN-TETE" 


9397 




NEXT 


7B3F 


■ 470 


PRINT 


CHR* <27>"c" 


45E2 


140 


SPEED= 255s VTAB 13: HTAB 9 




489 


PRINT 


CHR* <27>"L008" 


EE83 




t FLASH : PRINT "ciGctGcjtG 




490 


PRINT 


CHR* (27)"™*' 


51 EC 




BRANCHED LMMPRIMANTE H ! N 




500 


PRINT 


"LETTRE" 






ORMAL 


4EC1 


510 


PRINT 




/DBA 


150 


VTAB 23: GET A* 


5D64 


520 


PRINT 


CHR* <27)"y" 


nnrri 

88F8 


160 


HOME : INVERSE i VTAB 13; H 




530 


PRINT 


"LETTRE INDICE" 


AD9A 




TAB 7: PRINT " PROGRAMME DE 




540 


PRINT 




75 BA 




DEMONSTRATION " 


A588 


558 


PRINT 


CHR* (14) 


A457 


170 


UTAB 16: HTAB 12: PRINT " S 




560 


PRINT 


"LETTRE MIXTE" 


2A75 




UR LMMPRIMANTE 11 : NORMAL 


E90E 


570 


PRINT 




75BA 


180 


VTAB 22: HTAB 16: FLASH : P 




580 


PRINT 


CHR* <27)"z" 


A2F9 




RINT " < RETURN) JJ : NORMAL : 




590 


PRINT 


"LETTRE EN-TETE " 


86E0 




GET W* 


5732 


609 


PRINT 




758A 


190 


REM * TITRE * 




610 


PRINT 


CHR* <27>*c" 


45E2 


200 


■ 


8Q3A 


620 


PRINT 


CHR* <27)"L030 N 


n i 7C 

Ul /c 


210 


PRINT CHR* (13): PRINT CH 




yon 

630 


PRINT 


CHR* <27> ,1 X" 


ror f 




R* <4) ,< PR£1": PRINT CHR* ( 




640 


PRINT 


'^"OPTIONS 


*T i fit 

76BE 




27>"c u ; PRINT CHR* <14) s P 




650 


PRINT 


CHR* <27>"L008" 


EE83 




RINT CHR* C27)"L>11" + CHR 




660 


PRINT 




75 BA 




* <27)"X M : PRINT " IMPRIMANT 




670 


PRINT 


"TEXTE S0UL1GNE" 


ft A A r" 

BABE 




E SCRIBE" 


815F 


680 


PRINT 




75BA 


220 


PRINT CHR* <27> Ji c" 


45E2 


698 


PRINT 


CHR* <27>"Y" 


88F8 




DDT KIT O LI D<± / O ~7 \ II f n O II 

HKIINl LHK* (Z/J L008 


CCQO 
ttu j 


rod 


PRINT 


CHR* <27>"D" ; CHR* C 




240 


PRINT "BROUILLON" 


39B4 




0); CHR* <1) 


4F2A 


256 


PRINT 


75BA 


710 


PRINT 


"ZEROS BARRES '^BBB)" 


D591 


268 


PRINT CHR* <27)"y" 


88F8 


728 


PRINT 


CHR* (27) "X" 


96F7 


276 


PRINT "BROUILLON INDICE" 


4188 


730 


PRINT 


"SOULIGNE ET ZEROS BA 




230 


PRINT 


75BA 




RRES M 


<000)" 


B8DB 


290 


PRINT CHR* (14) 


A457 


740 


PRINT 


CHR* <27> rf c" 


45E2 


360 


PRINT "BROUILLON MIXTE" 


7B56 


750 


PRINT 


CHR* <4>"PR£8" 


81 5F 
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GUY-HACHETTE 



■lilHirj/lH \ DOS 3.3 EXCIUSIVEMENT 



Yvan KOENIG 



Sauveur de variables 



IE suis persuade qu'un jour ou I'autre 
vous avez regrette de ne pouvoir sau- 
ver un tableau de chames sur disque 
eornme il est possible de le faire pour 
un tableau numeYique sous DOS 3.3. 

Je vous propose un palliatif ecrit en partant du pro- 
gramme CHAIN de la disquette master DOS 3,3, 

Vous savez tous que le stockage des variables se 
fait en divers emplacements memoire sous 
APPLESOFT* Les variables numeriques sont les 
plus faciles d apprehender puisqu'efies sont sto- 
ckees en une seule fois, entre (LOMEM) et (ARY- 
TAB) pour des variables simples, entre (ARYTAB) 
et (STREND) pour des tableaux. 

Pour les variables chaTnes, c'est plus varie. 
APPLESOFT stocke un descripteur dans les zones 
definies ci-dessus tandis que les chames propre- 
ment dites peuvent etre stockees en partie haute 
de la memoire disponible c'est-a-dire entre (FRE- 
TOP) et (HIMEM) mais si elles sont definies par 



CH$ — "xxxxxxxxx", le stockage reste dans la 
zone programme a I'endroit ou lo chaTne est 
definie. 

Ajoutons que lorsqu'une chaTne change de con- 
tenu I'ancienne valeur est purement et sirnple- 
ment abandonnee sur place, le descripteur poin- 
tant desormais sur la nouvelle chame. La routine 
GAR BAG que tout utilisateur APPLE a maudit un 
jour ou I'autre a pour fonction de faire le menage 
de la memoire en eliminant les chaTnes mortes. 
Cette routine est helas tres lente mais I'accelerer 
n'est pas au programme aujourdh'uL 

Le programme CHAIN qui permet de chaTner 
deux programmes effectue un menage puis col- 
lecte tautes les chaTnes "programme" pour les 
reporter dans lo zone de stockage normal des 
chames. Ensuite, le bloc descripteurs est deplaee 
de facon a se retrouver juste sous les chaTnes* 
ATTENTION, les fonctions FN sont maltraitees 

(suitm au verso) r 





TEST! .SAUVEUR1 




10 


TEXT : HOME 


1C5A 


140 


KB = 4?152:KS = 49168 


B916 


20 


DS = CHR$ <4) 


B3A4 


150 


REM Col lecte les chained act 




30 


A* = "APPLE" : PRINT A$ 


B444 




i yes 




40 


B$ = "TREMPLIN " : PRINT B* 


A95F 


160 


REM Regroupe descripteurs et 




50 


C* = "S0UPLE M : PRINT C* 


31AE 




cha i nes 




60 


BC* = B$ + C$: PRINT BC* 


75AB 


170 


PRINT D$" BR UN SAUVEUR1" 


6A19 


79 


DIM DK19,Z)l FOR I = TO 1 




186 


PRINT D* H M0N C" 


F0B3 




5 


8020 


190 


REM Sauue le fichier UARIABL 




3G 


» = STR$ <I):C$<1 J 0) = "2" 






ES 






+ C*:»(I,i) = "U" + C*:C*<I 




2& e 


PRINT D$"BSAUE MAR1ABLES1 ,A 






,2) = "D" + C$ 


E639 




11 PEEK <4) + 256 * PEEK (5 




90 


FOR J = 9 TO 2: HTAB 1 + J * 






f L " PEEK <8> + 256 * PE 






15: PRINT OKI, J) ; : NEXT ! P 






EK (9) 


DF6E 




RINT : NEXT 


9613 


210 


REM Sauve le -fichier OFFSET 




100 


PRINT 


75BA 


220 


PRINT W'BSAVE 0FFSET1 ,A9 , 




no 


C* = "MICRO" : PRINT C* 


ED50 




L8 11 


B89C 


126 


BC$ = B$ + C*: PRINT BCS 


75AB 


230 


PRINT D*"NQM0N C u 


6450 


130 


DIM NM<12) : FOR I = 1 TO 12; 




240 


PRINT : PRINT " FAITES MA I NT E 






NMCI) = If NEXT 


CF42 




NANT "RUN TEST2.SAUVEUR1 


E73C 



TREMPLIN MICRO 
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puisque si leur descripteur est bien sauve, leur 
definition reste dans la zone programme ou vous 
ne la retrouverez done pas tout a I'heure. 
Lorsque ces operations sont terrninees, CHAIN 
charge le PROG2 puis retablit les pointeurs indis- 
pensables, descend le bloc descripteur et HOP, le 
tour est joue, on execute PROG2 avec les varia- 
bles definies dans PROG1 . En supprimant la fonc- 
tion LOAD PROG2 et en ajoutont quelques opera- 
tions de stockage de pointeurs il etait possible de 
faire la meme chose mais, sans etre oblige d'utili- 
ser PROG2 juste apres PR0G1 . 
Apres utilisation de PROG1 on sauve le bloc 
variables sous forme d r un fichier binaire que i'on 



pourra rappeler plus tard lorsque I'on en aura 
besoin. Il vous sera desormais possible de garnir 
vos tableaux stables une fois pour toutes, en 
acces clavier ou par lecture LENTE de fichier(s) 
TEXT et de sauver tout cela en fichier binaire. 
Lorsque vous aurez besoin d'utiliser ces tableaux, 
il vous suffira de fair© un BLOAD VARIABLES or 
vous savez qu'un bload est rapide (et peut etre 
accelere). La production litteraire n'etant pas 
mon fort, je vous renvoie aux commentaires du 
source pour le fonctionnement de la routine SAU- 
VEUR et aux programmes TEST pour Tutilisation 
mais, une fois encore, ATTENTION a ne pas trans- 
ferer de fonction. Yvon KGENIO 



TEST2.SAUVEUR1 



1G TEXT : HOME - 1C5A 
2B PRINT CHRf (4) lt M0N C" 20B7 
38 REM Charge le -fichier UARIAB 
LES 

46 PRINT CHR* < 4) " BLOAD UARIAB 

LES1 " 07B6 
59 REM Charge le fichier OFFSET 
68 PRINT CHR* (4) "BLOAD OFFSET 

1" 12E4 
70 REM Place les descripteurs 
80 REM Ajuste les pointeurs 
90 PRINT CHR$ C 4) "BLOAD 5AUVEU 

Rl" 2B48 
100 PRINT CHR* <4)"N0MON C" : PR 

INT C448 



tie 

120 



I 30 



140 



150 



160 



170 



CALL 926 

PRINT A$: PRINT B$: PRINT » 
: PRINT BC$: FOR I = 1 TO 12 
: PRINT NM<1) : NEXT 
PRINT i PRINT 1 UNE TOUCHE P0 
UR CONTINUED 

POKE KS,0: WAIT KB ,128: POKE 
KS s 0: PRINT 

FOR I = TO 15: FOR J = T 
2s HTAB 1 + 15 * J: PRINT 
Ct<I,J>5: NEXT : PRINT : NEX 
T : PRINT 

REM A* I B4,C*,D$ I BC^,KB,KS 3 C$ 
<-> ,NMC.) 

REM SONT BIEN RECUPERES. 



3C2D 

897F 
48FF 
FDD7 

0732 



0289: 


20 


84 


E4 


A9 


07 


85 


8F 


££1B4C 














££A2AD 


SAUVEUM 


B290: 


A5 


69 


A =6 


6A 


85 


9D 


86 


9E 


E4 


6C 


D0 


04 


C5 


6B 


F0 


05 


G2A0: 


20 


FC 


92 


F0 


F3 


85 


9F 


86 


AO 


A9 


03 


85 


8F 


A5 


9F 


A6 


££03F5 




0286: 


A0 


E4 


6E 


D0 


07 


C5 


6D 


D0 


63 


4C 


56 


03 


85 


9D 


86 


9E 


££1AB9 


Quand vous 
aurez termine, 
n'oubliez pas 


02C0; 


A0 


00 


81 


9D 


AA 


C8 


Bl 


90 


08 


C8 


81 


9D 


65 


9F 


85 


9F 


££01F4 


62D0 ; 


C8 


Bl 


9D 


65 


A0 


85 


AO 


28 


10 


D3 


8A 


30 


00 


C8 


Bl 


9D 


££20EB 


62E0: 


A0 


00 


OA 


6? 


05 


65 


9D 


85 


9D 


90 


02 


E6 


9E 


A6 


9E 


E4 


££667A 


02F6s 


A0 


D0 


04 


C5 


9F 


F0 


8A 


20 


06 


3 


Ffl 


F3 


Bl 


9D 


30 


46 


££E252 


de sauver 


8306: 


C8 


Bl 


9D 


10 


41 


C8 


Bl 


9D 


F0 


3C 


C8 


Bl 


9D 


AA 


CS 


Bl 


££93E2 


votre routine 


0310: 


9D 


85 


9C 


B6 


9B 


C5 


B0 


FB 


02 


B0 


2B 


83 


88 


Bl 


90 


48 


££0FC7 


sur disquette 
par un 

BSAVE SAUVEUR1, 
A$289 r L327 


0320: 


38 


A5 


6F 


85 


94 


Fl 


90 


C8 


91 


9D 


85 


6F 


C8 


A5 


70 


85 


££773F 


0339: 


95 


E9 


00 


91 


90 


85 


70 


68 


18 


65 


9B 


85 


96 


A5 


9C 


69 


££2EE6 


0340: 


00 


85 


97 


20 


9A 


03 


A5 


8F 


18 


65 


90 


85 


9D 


90 


02 


E6 


££A791 


0350: 


9E 


A6 


9 E 


AO 


@0 


60 


A2 


00 


38 


B5 


68 


E5 


69 


95 


80 


E8 


££40A7 


8360: 


B5 


6B 


E5 


6A 


95 




E8 


E0 


63 


96 


ED 


A2 


01 


B5 


69 


95 


££C0A2 




0370: 


9B 


B5 


6D 


95 


96 


B5 


6F 


95 


06 


95 


94 


CA 


ro 


EF 


20 


9A 


££B133 




0380 : 


D3 


A5 


94 


85 


04 


A6 


95 


E8 


86 


65 


38 


A5 


73 


E5 


64 


AA 


££7026 




8390: 


A5 


74 


E5 


05 


A8 


E8 


B6 


08 


D0 


01 


C8 


84 


09 


60 


A5 


06 


££E152 


PROGRAM-IE 


03A0: 


85 


3E 


85 


6F 


A5 


07 


85 


3F 


35 


70 


A2 


00 


18 


A5 


69 


85 


££FC69 


SOURCE sur 


0380: 


42 


75 


00 


95 


68 


E3 


A5 


6A 


85 


43 


75 


00 


95 


6B 


E8 


E0 


££3AB3 


la disquette 


03C0: 


03 


90 


EA 


A5 


0^ 


35 


3C 


A3 


05 


85 


3D 


A0 


00 


4C 


2C 


FE 


££A269 


TM 11... 
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GUY-HACHETTE 



UTILITAIRE 



DOS 3,3 



ProDOS 



NESTOR 



TRI RAPIDE 

d'une liste de mots 




Ul n'a jamais eu besoin, dans un programme en Basic, de trier 
rapidement une liste de mots ? Les routines classiques, non com* 
pi lees, se revelent d'une lenteur desesperante des que le nombre 
de donnees depasse la cinquantaine. 



TRI.1 (156 octets) vous propose une solution 
simple et efficace. Cette routine en langage 
machine trie tous Jes elements d'un tableau 
dimensionne en quelques seeondes (moins de 10 
pour 150 donnees). Elle est implantee d partir de 
I'adresse $300 (768) et utilise quelques octets de 
la page zero (verifier que ceux-ci ne sont pas deja 
monopolises par le programme general... ou par 
d'autres sous-programmes en langage machine), 

MODE D EMPLOI : Pour trier les elements d'un 
tableau A$(, il suffit d'inserer dans votre pro- 
gramme en Basic une ligne du type ; 
CALL 768, A$(0) 

Les eventuelles variables de longueur seront 
automatiquement classees en tete de liste. 



PEUT ON TRIER A PARTIR Oil CARACTERE 
D'UN RANG DETERMINE ? 

Oui. Indure un POKE 867, R — 1 (R = rang) avant 
la ligne ci-contre, Ainsi, POKE 867,1 triera la liste 
sans tenir compte du premier caractere. 

COMMENT CLAS5ER A PARTIR DE LA DONNEE 
LA PLUS GRANDE ? (ordre alphabetique inverse) 
Par quelques pokes bien ajustes ; POKE 869,7 ; POKE 
871,252 ; POKE 887,144. Ne pas oublier de retablir les 
bonnes valeurs pour realiser un tri normal. 

TRI-DEMO : Cette demonstration vous montre 
comment utiliser TRI.l. II n est pas indispensable 
de la taper. Vous pouvez aussi vous limiter aux 
lignes 100-105, puis 210-240. 



TRI. DEMO 



m IF PEEK (769) < > 190 THEN PRINT CHR 
S C 4) M BLQAD TFKT 

105 PRINT CHR$ <4)"PR£3 [I : PRINT : HOME 

118 VTAB 12: PRINT "La machine va succes 
sivement trier 15G faux mots ranges 
dans trois tableaux! - A$< t B$< , 
C$(... puis elle vous invitera & fou 
rnir le nombre de mots que vous alle 
z vous-meme taper dans le deaordre." 

US PRINT : PRINT "La cloche vou3 indiqu 
era le d6but de chaque tri (que)ques 
seeondes)/ 

125 D = 

130 N = 150 

135 DIM A$(N),B$<N),C$(N) 

140 FOR I = D TO N:A$CI) - CHR$ (65 + IN 

T C RND <1) * 26)) * "000" : NEXT 
345 FOR I = D TO W:B*CI > = CHR$ (65 + IN 



T C RND CI) # 26)) + "100" : NEXT 
150 FOR I = D TO N:C»CI) = CHR$ C65 + IN 

T ( RND CI) * 26)) + "200": NEXT 
155 CALL - 198 

168 PRINT : HOME :X » X + 1: ON X GOTO 1 
65,170,175 



165 CALL 768,A$(0)r 
170 CALL 768 P B$C0); 
175 CALL 768,C$(0)r 
180 FOR I = D TO N: 

T : GOTO 195 
185 FOR I = D TO N: 

T : GOTO 195 
190 FOR I - D TO N: 

T 

195 VTAB 22: PRINT : INVERSE 
ESSEZ UNE TOUCHE S.V.P";; 
RINT a > GET R$: PRINT 



GOTO 180 
GOTO 185 
GOTO 190 

print miy 

PRINT B$CI3" 
PRINT C*CI) U 



NEX 



NEX 



NEX 



PRINT ,r PR 
NORMAL : P 

(suile page 2A) 



TREMPLIN MICRO 
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(suite et fin) 



2U IF R$ = CHR$ C27> THEN PRINT : END 
2&5 IF X < 3 THEN 155 
210 HOME 
215 N = 50 

220 INPUT "NOMBRE ? " ;N: DIM M$<N) 
225 PRINT i PRINT "SAI5IE DE "N" HOTS": 
PRINT 

230 FOR 1=1 TO N: INPUT u > H ;M$(I): ME 
XT 



235 CALL 768,H$(0> 

240 FOR I = 1 TO N: PRINT M$<I): NEXT 
245 PRINT : VTAB 23 i PRINT H <1> ENCORE < 
2> MENU DE LA DISGUETTE <3> TERMINE 
POUR AUJOURD'HUI GET R$: VTAB 2 

0: PRINT R$ 
250 HOME ~ IF R$ = B i " THEN CLEAR : GOTO 
100 

255 IF R$ = "2" THEN PRINT CHR$ (4VRUN 
MENU" 

260 IF R3 < > "3" THEN 245 ■ 



TRI.1 



(BSAVE TRI.1 , A$ 300, L$9C) 



0300- 


20 


BE 


DE 


JSR 


$DEBE 




0303- 


20 


E3 


DF 


JSR 


$DFE3 






■Jo 






bfcL 








W r 


U 1 






£$0 1 








OD 




Din 


Sob 






OU 


U 1 




OLD 


$UoUL 




rnn n-- 


DO 














on 


Ob 




all 




— 


D^l fl- 

'.-'■,'!! 




nrv 




r nv 


£$00 






A 1 


oO 






C $o5 r X ) 






ro 








(AAA 

£ $02 






DU 


U 1 




flLb 


$0319 






en 
cU 






Klb 








dD 


PA 

r fl 




5TA 


$FA 




D^t ft- 


AS 


00 










031D- 


85 


85 




STA 


$85 




031F- 


A5 


84 




LDA 


$84 




0321- 


85 


66 




STA 


$86 




0323- 


A2 


00 




LDX 


£$00 




0325- 


A9 


00 




LDA 


£$00 


j 


0327- 


85 


09 




STA 


$09 


0329- 


AO 


02 




LDY 


£$02 




032B- 


Bl 


85 




LDA 


($85), Y 




032D- 


99 


06 


00 


STA 


$0006 t Y 




0330- 


86 






DEY 






0331- 


10 


F8 




BPL 


$032B 




0333- 


E8 






INX 






0334- 


E4 


FA 




CPX 


$FA 




0336- 


F0 


56 




BEG 


$038E 




0338- 


A5 


85 




LDA 


$85 


— 


033A- 


85 


18 




STA 


$18 




Q33C- 


69 


03 




ADC 


£$03 




033E- 


85 


85 




STA 


$85 




0340- 


A5 


86 




LDA 


$86 




0342- 


85 


19 




STA 


$19 





CHKCOM : teste la virgule dans TXTPTR 
PTRGET : recherche la variable par son nam 

Au retour, A et Y contiennent la bonne adresse. 

On lit la longueur du tableau a cette adresse moins un. 

Ainsi, A = A— |.„si A = FF, Y = Y— 1 

Le resultat est plac£ dans $85-86 

et le contenu est lu grace 6 Tadressage indirect avec X 

Si la longueur est inferieure a 2 r pas de TRI 
Sinon on continue 
RETOUR au Basic 

Le nombre d'elements 6 trier est place dans $FA 

REINITIALISATION 



L'adresse de base est contenue dons $83-84 et <l est 
facile de la reinstaller dans $85-86 

Sert de pointeur pour compter les elements tries 
Si 9 = 0, il n'y a pas ou d echonge. 
Si 9 = 1 H on a modifie la liste. 



On ecrit page : 

— 6 : longueur de Telement 

8 ' _l ac ^ resse ou 'I est "mplante dans la memoire 



X = X + I pour ELEMENT 1 (le suivant) 
Si X = $FA {nombre d'elements 6 traiter) 
GOTO $38E 



L'adresse H- 3 (element suivant) est sauvegardee dans 
$18-19 (ou elle sera utilised plus loin pour la permuta- 
tion eventuelle) et placee dans $85-86 
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mmmmmamm 

0344- 


69 


00 


ADC 


£$00 


0346- 


85 


86 


STA 


$86 


0348- 


AS 


06 


LDA 


$06 


034A- 


FO 


DD 


BEQ 


$0329 



] 
1 



Si la longueur de I'ELEMENT est nulle, GOTO $329 



034C- 


A0 


02 


LDY 


£$02 




034E- 


Bl 


85 


LDA 


C$85) ,Y 


$FB 


0350- 


99 


FB 00 


STA 


$00FB,Y 


$FC 


0353- 


88 




DEY 




$FD 


0354- 


10 


F8 


BPL 


S034E 





U Jbb- 


AC 

ftb 


r d 


LDA 


A&ta — i 

*PT D 


03 bo- 


c U 


1 c 


D&U 


*UJrV J 


ri OCA 


Lb 


Ub 


pun 




0dbk~ 


on 






$UooU 


035E- 


A5 


06 


LDA 


$06 


n "sen _ 








E _ 




AD 


nn 




PAfin — i 




R1 

V J 


Ff 


f nft 


(*Fn v 


UvJOO 


Til 


D7 

U r 


It 


(&n7\ v 




Ffl 




RFfl 


4>UOD£i 


U vOH 






DL-D 




'imi,. 


HQ 


OR 


BMP 


*U J f 7 








THY 

1 Li 1 




036F- 


C4 


PC* 

FE 


CPY 


$FE 


Uo fl- 


uU 


p 1 


BUD 


*UJ64 _ 


ft Q7o 

Uor o- 


AC 


r d 


T lift 




U<> rO- 


CO 


uo 


LPlr 




Uo r A ** 


DU 


i n 
1 U 








AO 


n 1 
u 1 


t ha 


Jt*U 1 




DD 


n o 

UY 


QTA 
Din 




Q37D- 


AO 


02 


LDY 


£$02 


037F- 


Bl 


85 


LDA 


($85) f Y 


0381- 


48 




PHA 




0382- 


Bl 


18 


LDA 


($18), Y 


0384- 


91 


85 


STA 


($85), Y 


0386- 


68 




PLA 




0387- 


91 


18 


STA 


($18).Y 


0389- 


88 




DEY 




038A- 


10 


F3 


BPL 


S037F _ 


038C- 


30 


08 


BHI 


$0396 


038E- 


A5 


09 


LDA 


$09 n 


0390- 


FO 


03 


BEQ 


$0395 


0392- 


4C 


IB 03 


JWP 


$031B 


0395- 


60 




RTS 




0396- 


E4 


FA 


CPX 


$FA 


0398- 


B0 


F4 


BCS 


$038E 


039A- 


90 


8D 


BCC 


$0329 



Si $FB = 0, permutation immediate 

Si la longueur de I'ELEMENT 1 est plus petite que celle 
de I'ELEMENT 0, le contenu de A est bon + Sinon on 
prend la plus petite longueur que I'on stocke dans $FE 



Caract^re de I'Gl^MENT 1 (de rang Y) compare a celui 
de I'ELEMENT 

Si egalite, fo boucle continue 

Si plus grand, pas de permutation (GOTO $396) 

Si plus petit, permutation immediate (GOTO $379) 

Comparaison terminee si Y est egal a $FE 



Si la longueur de I'ELEMENT 1 est ©gale ou plus grande 
que celle de I'ELEMENT 0, pas de PERMUTATION 

09 est mis a 1 



L'adresse de I'ELEMENT 1 

prend la place de celle 

de l ELEMENT Q. et vice-versa 



GOTO $396 

S'il n'y a eu aucune permutation, tri termine 

Sinon on recommence 
RETOUR AU BASIC 

X est-il egal au nombre d'elements a comparer ? 
Egal ou superieur, ultime verification en $38E 
inferieur ( affair© 5 suivre... 



m»mm 



HM 
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DOS 3,3 



ProDOS 



GEO 



DRAW et XDRAW 

en langage machine 



A routine en langage machine peut 

Letre utilisee sans faire appel au pro- 
gramme DEMO. Elle utilise la fonc- 
tion XDRAW ($F65D) el elle tournera 
aussi longtemps que vous n'aurez 
pas presse une touche. 

Que fait I'instruction XDRAW ? Elle affiche une 
forme avec la couleur inverse de cell© qui se 
trouve aux points ou est deja tracee la forme. 
Ainsi, noir devient blanc et vice-versa. C'est 
pourquoi avec XDRAW le programme fait et 
defait indefiniment I'eeran. 
La forme est reduite a un octet ($4) qui est place 
en page zero a I'adresse $8 et terminee par un 
en $9. Dans la demo, XDRAW devient DRAW 
($F601)... ce qui modifie I'eeran. Touteiois, com- 
me DRAW se contente de tracer (sans effacer), on 
stoppe le programme des la fin de la boucle 
(continuer'ne modifierait pas 1'affichage). 

QUELQUES RAPPELS 

En Basic, pour utiliser DRAW ou XDRAW, il est 
indispensable d'indiquer le numero de la forme 
dans la table de formes et aussi de renseigner 
I'Apple sur I'adresse de cette table. Ainsi r pour 
notre mini-forme, nous aurions du executer les 
operations suivantes : * FA: 10 4 4 * E8: FA 



La 1 ?n clique 1©> nomhre do formes. Lo promiar A tadlque 
|p pnrtie boJSO 6u nombr* d'octats Sep Of ant l« dwbut d& 
la table de la premiere forme. Lo derrtlor 4 [sufvt du 
iGro) e*» lo forme vlfo-mftmo (let, tl rt'y *n a qu'un»)» 



Et ensuite, en Basic : 

W HCOLOR = 3 : HGR ; SCALE = 1 : ROT = : 

X = 139: Y = 95 
20 DRAW 1 ATX,Y 



XDRAW- DEMO 



180 

lie 

129 
139 

146 
150 
160 

178 

180 
199 

200 



PRINT CHR* (21) : HOME 
PRINT CHR* <4>"BL0ADXDRAW.L 
M" : CALL 768 

CALL - 198: GET Rt: PRINT : 

POKE - 16301 ,8 
VTAB 22: CALL - 958: PRINT 
"Le meme avec DRAU au lieu d 
e XDRAW " \ i GET Rf 
POKE 865,01: POKE 826,3: CALL 
768 

CALL - 198: GET R$: PRINT : 

POKE - 16301 ,0 
UTAB 22 1 PRINT " J <1> ENCORE < 
2> MENU D1SQUETTE <3> FIN "; 
: GET R$ 

PRINT t POKE 826,225: POKE 8 
65,93: IF R$ = " 1 11 THEN CALL 
768: GOTO 120 

IF R$ = "2" THEN PRINT CHR* 

(4) "RUN MENU" 

IF R$ < > "3" "THEN 160 

TEXT : HONE * 



Un RUN affichera un point. Puis, si vous tapez r 
en mode direct : 
SCALE = Id : GOTO 20 

vous afficherez, 10 points... qu'un XDRAW \ AT 
X,Y fera disparaTtre. CQ.F.D. 

En langage machine, il est inutile de renseigner 
les poinleurs $E8-E9 sur I'adresse de la table de 
formes. Par contre, on devra placer dans X lo 
partie BASSE de I'adresse du premier octet de 
lo forme et dans Y la pgrtie HAUTE de cette 
meme adresse. 
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BOB B 


H 7 


"J 




i 

LUH 




n Q Q O — 






r V 


TCD 


*cr\rn 


o oB J 




9Q 




1 fiA 




n 9ft 7 — 
B>3B f 


DJ 


C jt 
to 




CTA 
b I H 


Tt6 1 


B JO 7 




/r 




LUR 


^* 7C 1 


030B- 


85 


E4 




STA 


*E4 J 


039D- 


A9 


04 




LDA 


£$@4 ~| 


fl ^AP- 
Is op T 




QD 

OO 




CTA 
c> 1 R 


TWO — 1 






C9 

r 


C9 

r J 


TCD 

J OR 


*coco 


B J 1 *T 




t c 


CO 






ft 31 7- 


£L 


^9 


LO 


R T T 

□ 1 1 


*LW 


y ji h 


AO 


ft 

y y 




i ha 


ft 


031C- 


85 


96 




STA 


-r 


031E- 


85 


97 




STA 


*07 J 




85 


0V 




STA 


$0y 




85 


Ft 




STA 


$Fy 




H7 


1 




1 HA 

LDr 


f J — 1 


y 


OR 


C9 




STA 


»E7 _l 


ft 90Q_ 


to 


U 6 




t ki 

iNL 


*y o 


ft noA_ 

B JiH 




i 9 




PMC 




ft 99P — 


to 


a 7 
W / 




tkir 


■± ft ^ 
^y r 


a 99c 


hD 


n 7 
b/ 




1 f>A 

LUH 


-± A 7 — 1 


ft 99ft 


Lt 


y ^ 




Lnr 


t^y 4 


0332- 


oe 


98 




BNE 


*033F 


0334- 


AD 


80 


ce 


LOA 








7C 

rr 




Lnr 


it ¥/r 


ft oo o_ 


Oft 
YB 


r 1 
1 1 




dL-L 


■t ft O 1 iT 

^y l 


u 99 G 
<$-3 Jo 


9T 


i ft 
i y 


LB 


D I 1 


^Lo 1 y 


033E- 


60 






RTS 




033F- 


AB 


00 




LDY 




0341- 


A2 


8B 




LDX 


£^8B 


0343- 


A? 


5F 




LDA 


£$5F _ 


0345- 


20 


1 1 


F4 


JSR 


*F4I1 


fy 9AQ_ 
B OHo 


AO 
HO 


y y 




i rw 
LDY 


tvi) a 


ft 9d 


Al 


Bo 




i rw 
L U A 


£-± rt O 


ft ^ilP — 


to 


CO 
r v 




J INL 


*rn — , 

f rY 


oott 


HO 


CO 
r y 




i r\A 


4: CO 

^rr 


ft9S0 — 
u o j U 


CO 


d i 




Lnr 


H 1 


ft 9R9 — 




■ L 




QMC 
t>Nt 


£■ IJ ,5 6 U 




AO 
R7 


a 1 




i r\A 
LL*H 


f-in 1 
1 


B JDo 


OJ 


CO 

r y 




b 1 ft 


-* ro 

-f- r V _ 


0358- 


48 






PHA 




035?" 


A? 


le 




LDA 




035B- 


65 


£7 




ADC 


4E7 


035D- 


85 


E7 




STA 


$E7 


35F- 


68 






PLA 




9360- 


20 


5D 


F6 


JSR 


$F65D 


3363- 


4C 

WBMB 


28 03 


JMP 


$9328 



c s 



CTRL-U (envoy© par COUT) va desactiver la carte 80 colonn 

On place $20 (voleur pour HGR) dans HPAG ($E6). 
Ceite Qdresse confient $40 pour HGR2 

Code de la couleur : $7F = 3 

(0 = 0, $2A = 1, $55=^2, $80 = 4 H $AA = 5, $05 = 6, $FF=7) 
fa N c'est notre forme (un point) 
Efface E'ecran (HCLR) 

Initialise la page HGR ($F3D8 pour HGR2) 
C'est POKE — 16302,0 : plus de fenetre texte ! 

INITIALISATION 

AccumuJateur charge avec 

Pointeurs pour urie boucle allant de 1 a 1024 

Dernter octet de ]a forme (on profite de A = 0) 
ROT = 

SCALE = 1 ($E7 = correspond b SCALE = 256) 



Plus un pour la boucle 

Si le resultat est different de 1 on saute 

5inon r il faut Incrementer la partie haute de I'adresse 

Celle-ci est-elle egale a 04 ? (outrement dit ; est-on arrive a 
$400 ?) 

Si la repanse est non, on continue 

Une touche a peut-etre ete pressee ? 
Non, on continue. 

Oui ( on arrete, mais sans oublier un POKE 



16368,0 



Retour au Basic 

ON POSIT! 1 



X, position horizontals, est place dans les registres Y (partie 
haute) et X (partie basse). Y P position vertical©, est placee 
dans I'accumulateur. 
HPOSN fait le reste, 

XDRAW OU DRAW 

L'adresse de la forme est placee dans Y (partie haute) et X 
(partie basse). 

ROT ($F9) = ROT 4- 1 

Quand ROT = $41 (65), on remet la valeur 1 dans $F9 

On en profite pour augmenter SCALE de 16 ($10) 

Nolans la valeur de ROT doit etre dans TAccumulateur 



On empile la valeur de ROT 
SCALE " SCALE + $10 

Recuperation de ROT sur la pile 
XDRAW ou DRAW ($F601) 



BSAVE XDRAW. LM 
A$300. L$66 



Et ca report pour un autre trace 



TREMPL1N MICRO 
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TREIZE 



PETIT JEU 

DE LETTRES 




APPLE choisit un mot parmi ceux d'une liste presentee sous forme de DATAs II en 
melange les iettres et les affiche sur I'ecran graphique, Vous avez de,a compris quil 
s'agit ensuite de les placer, mais en bon ordre, dans les treize cases pevues a eel effet. 
Pas de definition : si le mot est peu connu, t'est colon ! Heureusement il suffit de taper 
un (zero) pour obtenir un renseignement. Celui-ci coute un point, mais permet de placer exacte- 
merrtla premiere lettre (ou la suivante.,. si la premiere a deja ete localisee, et ainsi de suite), 
Quand on croit connaTtre le mot, on tape seulement un T et on est invite a fournir la solution (atten- 
tion ! en cas d'erreur, cela coute un point !). Ce petit programme est entierement en Basic, mais 
utilise une fonte speciale de caracteres (voir plus loin). 



IBS TEXT : PRINT CHRt (21) i HOME i POKE 768 

I 32DD 

IBS LOMEM: 16384 * I 476 i A = 16384: GOSUB 545 

: GDSUB 618 6m 
111 HOME INH = 7: REM N0M8RE DE MOTS EN DATA 8E73 

115 OIK Lt(13>,M*<i3) ,K(13) 032B 

120 GDSUB 48B FCC 

125 HGR ; HC0L0R= 3: SCALE= 1: ROT* B 8096 

13B : Bfl3A 
135 REM *** CASES FOUR LE MOT *** 

149 ? ee3A 
145 X = 3:Y = 27 mi 
158 HPLOT 8,8 TO 279,8 TO 279,38 TO 8,36 TO 

8 B F99D 
155 HPLOT X,X TO 276 ,X TO 276,Y TO X,Y TO X, 

x 5C73 

160 FOR I = 24 TO 265 STEP 21 J HPLOT l,X TO 
I,Y: HPLOT I + 2,X TO I + 2,Y: HC0LDR= i 
: HPLOT I + 1 ,X TO 1 * i,Y: HC0L0R= 3: N 
EXT BEAB 
165 s fl83A 
171 REM »** LETTRES MELANOSES ft** 
175 : BB3A 
18B D ■ 9:B = 88 ^il 
185 FOR I - 1 TO 13:E = 8:N * ASC <NK1)> " 
64: GOSUB 598 C4C4 



DRAW N AT D + E,B 
D = D + 21 s NEXT 



198 
195 
288 : 

285 REM *** ET WlNTENANT,JOU0NS *** 
ill 
215 



3E66 
443F 
6B3A 

BB3A 



228 

225 
238 
235 
248 

245 
250 

255 
260 
265 

in 

275 
288 
285 



\nm 21: HTAB i: PRINT "Renseignement: " 
INVERSE s PRINT 8;: NORMAL : INPUT u 
<ou RANG + LETTRE)ctMG 'jR* 
IF Rt = "SOL" THEM PE = PE +13 - TR: GO 
TO 43B 

IF Rt = U T* THEN 425 

IF Rt = a * THEM 215 

IF Rt < > THEN 298 

IF RS * 13 THEN Tt = 'PLUS DE RENSEIGNEM 

ENT: GO BUB 575: GOTO 215 

RS = RB + 1 

FOR I = 1 TO 13? IF HMD < > Lt<RS) TH 
EN 268 

IF HO) THEN PE = PE * i: GOTO 270 

NEXT 

GOTO 248 

IF I ~ RS THEN DR = 27 

IF I > RS THEN DR = 28 

IF I < RS THEN DR = 29 

D = 21 * I - 12: DRAW OR AT D,45;M(I) = 

fl; GOTO 215 



3F27 

72FA 
BCEA 
2A93 
8196 

OFBF 
6A13 

8944 
B9C9 
8562 
4B41 
AFFE 
83FE 
380 1 

0956 
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29B IF LEN <Ri) - 1 THEN 315 5785 
295 L$ = RIGHT* (Rt,l): IF Li < "A" OR Li > 

W V THEN 315 C8B2 
3B6 NU = VAL ( LEFT* <R*, LEN <R$) - I 

F NU < 1 OR NU > 13 THEN 315 DBB5 
305 IF L$(NU> = 0B THEN T$ = "LETTRE DEJA TR 

OWEE": GOSUB 575s GOTO 215 3CCB 
318 GOTO 320 2D4B 
315 T* = v ERREUR DE SAISIE": GOSUB 575: GOTO 

215 3CF8 
328 FOR 1=1 TO 13: IF tf*(I> - L* THEN 33B A17C 
325 NEXT : GOTO 485 FEB 9 

330 IF mil) = Li(NU) THEN D = 21 * I - 12:M 

= ASC <Lf) - 64: GOSUB 59B: XDRAU N AT 

D + E,B8:D = 21 * NU - 12: DRAW N AT D * 

E,1B:MIU> * ,ia :L*(NU) = H1 :H(I) = fl:Tft 

- TR ♦ 1: IF TR < 13 THEN 215 
335 IF TR < > 13 THEN 405 
348 : 

345 REM *** FIN DE LA PARTI E *** 
358 : 

355 PT = 13 - PE 

368 VTAB 21: CALL - 958: INVERSE : PRINT "S 
CORE:";: NORMAL ; PRINT " * \t IF NOT PT 
THEN PRINT u TRES MAUVAIS CPT° POINT)" 
: GOTO 385 

365 IF PT < = IB AND PT > =6 THEN PRINT 
PT" POINTS (BON RESULTAT) 31 : GOTO 385 

37B IF PT > IB THEN PRINT PT" POINTS (EXCEL 
LENT RESULTAT)": GOTO 385 

375 PRINT " A VOUS DE JUGER! CRT" POINT";: 
IF PT ) 1 THEN PRINT u S"j 

38B PRINT 

385 VTAB 23: PRINT "<I> ENCORE <B> TERMINE P 



465 REM *** CHDIX ET TRAITEMBJT *** 
478 REM *** OU MOT (13 LETTRES) *** 



258? 
1564 
B83A 

B83A 
4B36 



OUR CETTE FOIS ctrlG":: GET R* 



THEN CLEAR : GOTO 110 
B H THEN VTAB 22: PRINT 



398 IF f» = D i 
395 IF R$ < > 

TO 385 
489 TEXT : HOME : END 
485 1% = "HAUVAISE REPOMSE" 

PE # It GOTO 215 
418 : 

415 REM *** SOLUTION 
42B : 

425 VTAB 21: CALL 

B ;T*: IF Tt < 
43B GOSUB 515 
435 D = 9:B = IB 
448 FOR I = 1 TO 13:E = B;N 

64- if N = 9 THEN E = 4 
445 DRAW N AT D + E,B 
458 D = D + 21: NEXT 
455 GOTO 355 
468 : 



00 



GOSUB 575 :PE 



*** 



- 958: INPUT "MOT ENTIER 
) Mt THEN GOTO 4B5 



ASC <L*<I» - 



ADD 4 

4965 

5912 

4723 
7627 

74E9 
A96B 

6B7A 
5514 

8158 
8G3A 

903A 

1C5E 
E848 
F9FA 

5DB6 
3E66 
443F 
4948 
B83A 



BB3A 
843A 



48fl CH = 1 + INT ( RND CI) * NM> 
485 V = PEEK (768): IF V = NM OR NOT V THE 

N POKE 768,1: POKE 769, CH: GOTO 5B8 10DP 
498 FOR K = 1 TO V: IF PEEK (768 + K) = CH 

THEN 48B B371 
495 NEXT : POKE 769 + V,CH: POKE 768 ,V t 1 4383 
58 B RESTORE : FOR I = 1 TO CH: READ M$: NEXT 96ED 
1 TO 13sLt(I) = MIDI (M*,l ,1) r 



5B5 FOR I = 

NEXT 
518 FOR 3 = 

(1) * I 

: NEXT 
515 FOR I = 

(I) = 1 
528 RETUf^J 
525 ; 

53fl REM *** 



13 TO 1 STEP - US * INT ( RND 
+ 1) sMtCI) = L$(J>:L*(J> = L*<1) 



1 TO 13:L$(1> 
NEXT 



MID* <M$,l,i):M 



CC3E 



6F8D 

6F68 
63B1 
B83A 



INSTALLATION DE LA *** 
535 REM *** FDNTE <3B CARACTERES) *** 
549 ; 893A 
545 PRINT CHR$ (4)"BLGAD TREI ZE - FOMTE ,A tt , A AC43 
558 POKE 232,A - INT (A / 256) * 256: POKE 

233, INT (A / 256) 8A3E 
555 RETURN 63B1 
568 : 8B3A 
565 REM *** SOUS-PROGRAMMES *** 
57B ! 98 3A 

575 VTAB 22: CALL - 95B: VTAB 23! KTAB (41 

- LEN (Ti>> / 2: IWERSE : PRINT Tti NOR 

MAL : IF RV THEM RU * I: RETURN E175 
580 FOR K * 1 TO 2608: NEXT : VTAB 22; CALL 

- 958; '/TAB 23: KTAB 3: PRINT "Tapez <T> 

&i vous connais&ei le mot 8 8B76 
585 RETURN 6381 
590 E * B: IF N = 9 THEN E = 4 6798 
595 RETURN 6381 
688 : W9A 
685 REM *f* PRESENTATION *** 

619 s M3A 
415 HOME : INVERSE :T* = ■ ^" "'i VT 

AB Is PRINT T*: VTAB 3: PRINT TO: VTAB 2 
: PRINT " T R E I 2 E u ;: NORMAL t KTAB 
29: PRINT "REGLE DU JEU": VTAB 3: HTAB 2 
9: PRINT ■ w 3B11 

620 PRINT i PRINT "OBJET: Trouver un mot de 
13 lettres qui ast fourni dans le 

d§sordre.' S849 
625 PRINT : PRINT : PRINT 31 - Tout renseigne 

ment demand^ fait per- """dre un point* BD17 
638 PRINT : PRINT 13 - Pinal it* identique pou 

r toute erreur' C8F1 

(suite poge 32). 



TREIZE (suite) 

635 PRINT : PRINT ■ - TAPER <SOL> pour annul 

fr la parti e . u 
648 </TAB 29: FOR I - 1 TO IB: PRINT " 

NEXT : PRINT 



AE8E 



9?t& 



645 VTAB 22:T* - » FRE5SEZ WE TOUCHE SUP - 

RV = I i GOSUB 575 S7AF 



658 CALL - 198: WAIT - 16384,128,127s POKE 

- I 6368,8: HCHE ; RETURN 5 E ii 

660 REH *** HOTS DE 13 LETTRES **« m\ 

; BB£ 
678 DATA fNTEftLOCuTEUR , CONFERENCI ERE , DEMYSTI 

FIANTE,FRAGIUSATI0N,GALEOPITHEQUE,GI6AN 
TDMACrf I E f HELI CI CULTURE C 82« 



TREIZE.FONTE 



4810; 
4020: 
4030; 
4048 : 
405B: 
4060: 
4078: 
4088: 
4BPBs 
49A6: 
4080 : 
48C8: 
40 D0: 
4BEB; 
4BF6: 
4186: 
4110: 
4120: 
4130; 
4149; 
4158: 
4168: 
4178: 
4189: 
4199: 
41A0: 
41 BB: 
41 C8i 



41E9: 

41 F8: 

4203: 

4218: 

4228: 

4238: 

4240: 

4258? 

4269; 

4270: 



31 92 41 
A9 81 El 

28 B3 58 
C3 04 EC 
90 00 2D 
3B 2E 4D 

: 3F 3F 77 
37 6D 49 
AD 3F 3F 
3F 3F 2E 
37 6D 49 
B7 4? 49 
2D 4D 49 

29 3E DF 
98 29 2D 
37 6D 49 
37 6D 49 
37 2D 2D 
2D 2D 2D 
37 2D 2D 
37 2D 2D 
2D 20 2D 
37 2D 2D 
01 06 89 
DB DB 38 
35 FF D8 
2D IE 3F 
3B 2E 4D 
2E 2D 2D 
4D 49 35 
49 Off 2D 
3F B7 49 
3E DF DB 
3F 87 49 
35 FF DB 
37 2D 2D 
49 29 3E 
3E 2E 3E 
F5 3F 3F 
3F 3F 17 



90 It 00 B5 98 E8 00 IE 91 4E 01 71 01 ££3A45 
81 F4 01 15 82 4A 82 69 82 AD 02 E5 92 ££BCE5 

03 8E 83 C6 03 F6 03 14 04 4B 84 62 04 f£14B6 

04 IE 05 48 85 66 05 B5 05 A3 B5 C3 05 ££1BBC 
2D 2D 15 3F 3F 3F 3F 2E 4D 49 35 FF DB ££6B6B 
49 35 FF OB 3B 17 2D 2D 2D 2D 35 3F 3F ££A3C7 
AD 49 29 3E DF DB 37 6D 49 29 3E DF DB ££4EDA 
29 3E DF DB 87 49 49 49 01 00 29 2D 2D ££D724 
3F 37 6D 49 35 FF DB 37 6D 49 35 3F 3F ££FEB6 
2D 2D 2D 15 FF DB 37 6D 49 29 3E DF DB ££4238 
2? 3E DF OB 37 2D 2D 2D 2D IE 3F 3F 3F ££3304 
49 01 88 B9 2D 2D 2D 15 3F 3F 3F 3F 17 ££7640 
F5 DB DB 3B 2E 3E 2E 3E 2E 3E 2E 4D 49 ££3481 
DB 3F 0E 2D 2D 2D F5 3F 3F B7 49 49 49 ££AFFA 
2D AD 3F 3F 3F 37 60 49 29 15 FF DB 16 MAI6D 
99 35 FF D8 IB 37 6D 49 89 35 FF DB IB ££3748 
89 35 FF DB IB 37 6D 49 89 35 FF D8 IB ££3740 
2D 2D IE 3F 3F 3F B7 49 49 49 09 00 29 ££42GA 
15 3F 3F 3F 3F 2E 40 49 F5 DB DB 37 35 ££0573 
2D 3E 3F 3F 37 35 37 6D 49 29 3E DF DB ££56F4 
2D 2D IE 3F 3F 3F 87 49 49 49 01 96 29 ££3182 
15 3F 3F 3F 3F 2E 4D 49 F5 D8 DB 37 35 ££D573 
35 3F 3F 37 35 37 35 37 35 B7 49 49 49 ££821A 
2D 2D 2D 15 3F 3F 3F 3F 17 2D 4D 49 F5 ££9D7J 
2E 3E 2E 4D 49 69 3F FF DB 37 <JD 49 2D ££53DD 
IB 37 6D 4? 09 35 FF OB 38 77 2D 2D 2D ££8168 
3F 3F 56 49 49 99 00 29 4D 49 35 FF D8 ££96C7 
49 35 FF DB 38 2E 4D 49 35 3F 3F 3F 3F ££AC3E 
2D 35 FF DB 3B 2E 4D 49 35 FF OB 3B 2E ££AC3B 
FF DB 3B 2E 4D 49 35 FF OB 3B 56 49 49 ££EBD6 
F5 37 35 37 35 37 35 37 35 37 35 37 AD ££D16B 
69 00 49 49 29 3E 2E 3E 2E 3E 2E 3E 2E ££C?B3 
37 6D 49 29 3E FF D8 37 2D 2D 2D F5 3F ££C718 
49 49 80 29 40 49 35 FF D8 3B 2E 4D 49 ££BF9E 
3B 2E 40 49 F5 FF DB 37 6D 89 F5 3F 3F ££64FD 
2D 15 FF OB 37 6D 49 29 3E DF DB 37 60 ££385F 
DF DB B7 49 49 49 01 80 29 3E 2E 3E 2E ££7EFE 
2E 3E 2E 40 49 35 FF DB 3B 2E 2D 2D 2D ££3409 
3F B7 49 49 49 01 60 89 20 40 AD 3F 3F ££B5F3 
6D 89 6D 29 3E DF FF IB 37 £0 89 6D 29 ££7918 



EXPLICATIONS 
DU PROGRAMME BASIC 



10G 
105 
115 



185 



215: 



245 



250 



255 



265 



i Pourquoi POKE 768,(1 ? expli- 
cation a la ligne 485. 

: LOMEM est place au-dessus de 
la fonte de caracteres. 

: L$(n) = lettres du mot 
M$(n) = lettres melees 
M(n) = a 1 au debut du jeu 
et a quand M$(n), la lettre 
correspondent©, a ete utilises. 
La variable E est egafe a 0... 
sauf quand le caractere □ affi- 
cher est un I (a ce moment, 
E=4... voir ligne 590). Le E = 
n'est pas utile (on le retrouve a 
la ligne 590). 

Notez la presence dun CTRL-G 
ovant les guilfemets de fin de 
ligne (pour le placer, appuyez 
sinriultanement sur les touches 
CTRL et G), 

RS totalise le nombre de ren- 
seignements. Au debut du jeu, 
on donne un tuyau sur la lettre 
n°K„ et ainsi de suite. 
Si L$(RS) ne contient plus rien 

K?f f } e cas c l uanc ' ,a lettre a 
deja ete placee), on continue 
la boucle. 

PE totalise les points de pena- 
lity (un par renseignement et 
un par erreur manifeste). Si 
M(l) est egal a 0, on continue. 
Le renseignement n'a pu etre 
donne parce que la lettre n°RS 
a deja £te trouvee. RS va done 
etre increments pour donner 
un renseignement sur le carac- 
tere suivant,.. s'ilexiste. 
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270 



290 



33a 



430 



430 



485 



510 



550 



DR est le numero du caractere 
de la fonte special© (celte-d 
commence par A}. On a : 
27 = ,28= et-29= . 

Si on n J a qu r un caractere, la 
reponse est forcement mau- 
vaise. A cet endroit du pro- 
gramme, on attend une 
reponse de type 1A ( 12T r etc. 

XORAW efface la lettre utili- 
see, mais on laisse les fEeches 
correspondent oux renseigne- 
ments donnes (cela permet de 
controler le nombre de 
penalites !). 

Avant d'afficher le mot entier, 
on recharge L$(n) avec les let- 
tres du mot. On pourrait eviter 
ce Gosub et utifiser la fonction 
MID$(M$,U)alaligne440. 
Classique utilisation de RND. 
NM renferme le nombre de 
donnees (mots). 

On utilise I'adresse 768 et les 
N M octets suivants pour,y stac- 
ker le nombre de mots utilises 
et le numero d'ordre de chacun 
d'eux, CLEAR n'effaee pas la 
page 3 et H de cette maniere, 
on va aleatoirement choisir 
TOUS les mots de la liste, 
Quand celle-ci est epuisee.,, 
on armule tout et on re- 
commence I 

Melange bien connu des 
caracteres. 

A = Adresse d'installation, 
Comrne elle est connue 
(A= 16384... $4000), on pour- 
rait poquer directement les 
valeurs : 

— POKE 232,0 

— POKE 233,64 ($40) 



Anwsez'vous bien i 



GEO 




4286 

4290 

42A0 

42B8 

42C8 

42D8 

42E0 

42F0 

4308 

4310 

4320 

4330 

4346 

4356 

4360 

4376 

4380 

4399 

43A8 

43B8 

43C6 

43D9 

43E8 

43F8 

4460 

4418 

4426 

4436 

4446 

4450 

4460 

4476 

4488 

4499 

44A8 

4486 

44C8 

<\m 

44EB 
44FB 
4589 
4518 
4520 
4539 
4549 
4559 
456B 
4570 
45B0 
4596 
45A6 
45B0 
45C0 



3£ OF FF 
6D 29 3E 
6D 6? 60 
2D 2D 15 
49 35 FF 
FF DB 3B 
3B 56 49 
fl9 35 FF 
0? 35 FF 
09 35 FF 
08 2? 2D 
38 2E 4D 
37 2D 2D 
86 89 2D 
3B 2E 4D 
3B 2E 4D 
IB 3F 0E 
20 2D AD 
29 3E OF 
AO FF DB 
0B 38 56 
17 2D 40 
3F 77 29 
3F 3F 56 
37 6D 29 
B? 49 4? 
OF DB 37 
37 6D 49 
2D 2D 00 
FF DB IB 
FF DB IB 
3F DF IB 
49 01 06 
3E DF FF 
6D 29 3E 
6D 99 6D 
49 49 99 
77 6D 29 
FF DB 37 
35 Ff IB 
0B 37 6D 
IB 37 2D 
2D 2D 20 
3F 17 2D 
3F 3F 3F 
2D 15 3F 
2D 3E B7 
3F 3F 3F 
0E 96 49 
3F 2E 2D 
96 49 49 
3E 2E 3E 
49 49 09 



IB 37 60 09 
DF FF IB 37 
29 3E DF FF 
3F 3F 3F 3F 
DB 3B 2E 4D 
2E 4D 49 35 
49 49 88 89 
DB IB 37 60 
DB IB 37 6D 
DB IB 77 20 
20 20 15 3F 
49 35 FF DB 
2D 2D DE DB 
20 AO 3F 3F 
49 29 3E DF 
49 29 3E DF 
2D 20 2D AO 
3F 3F 3F 37 
DB BF 2D 2D 
3B 2E 4D 49 
49 49 49 08 
49 F5 DB DB 
35 37 35 3F 
49 49 49 68 
4D F5 DB 37 
81 00 60 4? 
6D 49 29 3E 
29 3E DF DB 
35 FF 36 3F 
37 6D 49 89 
37 6D 49 89 
3F BE 20 40 
60 89 60 29 
IB 37 dD 69 
OF FF IB 37 
29 3E FF FF 
88 29 40 99 
IE 3f 77 35 
6D 49 35 FF 
3F 9E 60 09 
49 2D 3E 3F 
2D 20 2D IE 
35 3F 3F 3F 
3E BF 20 3E 
B7 49 49 49 
3F 3F 17 20 
49 49 01 69 
1? 2D 20 2D 
4? 91 00 92 
2D 20 2D IE 
08 29 20 2D 
DF 9B 2D 2D 
88 ££729B 



6D 29 
6D 99 
IB 87 
2E 40 
49 35 
FF DB 
2D 2D 
49 89 
49 8? 
2D 2D 
3F 3F 
3B 2E 
3B 2E 
3F BF 
D8 3B 
DB 3B 
FF 3F 
6D 49 
20 2D 
35 FF 
89 2D 
3B 2E 
DF DB 
20 2D 
35 37 
29 3E 
OF DB 
37 6D 
56 49 
35 FF 
35 FF 
20 IE 
3E OF 
6D 29 
6D 69 
3B 8E 
35 FF 
BF 2D 
DB B7 
35 FF 
DF 77 
3F 3F 
3F 4£ 
BF 2D 
61 98 
2D 20 
92 4A 
20 35 
4A 49 
3F 3F 
AO 3F 
F5 3F 



3E DF 
6D 29 
49 49 
49 35 
FF DB 
3B 2E 
AO 3F 
35 FF 
35 FF 
F5 3F 
3F 2E 
4D 49 
3E 2E 
20 4D 
2E 4D 
2E 40 
3F 56 
29 3E 
IE 3F 
DB 3B 
20 20 
6D 3A 
37 2D 
20 2D 
35 37 
DF DB 
37 60 
49 20 
49 09 
DB IB 
DB IB 
3F 3F 
FF IB 
3E DF 
6D 29 
20 2D 
DB 37 
AD FF 
49 49 
DB BF 
2D 60 
3F 56 
49 29 
3E 37 
92 4A 
2D DE 
69 3E 
3F 3F 
15 37 
3F 3F 
3F 3F 
3F 2E 



FF IB 
3E OF 
49 49 
FF DB 
3B 2E 
40 49 
3F 3F 
DB IB 
DB IB 
3F B7 
40 49 
35 3F 
3E 56 
89 2D 
49 29 
29 00 
49 49 
DF DB 
3F 3F 
2E 40 
15 3F 
3F 0E 
2D 2D 
35 3F 
35 37 
37 6D 
49 29 
3E 3F 
09 6D 
37 60 
37 6D 
77 2D 

37 6D 
FF 18 
3E DF 
2D F5 
6D 49 
3B 17 
49 00 
6D 49 
35 37 
49 49 
F5 3F 
2D 2D 
89 15 

38 3? 
17 2D 
3F 3F 
20 15 
4E 49 
3F 2E 
3E 2E 



37 60 09 
FF IB 37 
U 39 2D 
3B 2E 4D 
4D 49 35 
35 FF DB 
BF 6D 49 
37 6D 49 
37 60 49 
49 49 49 
35 FF DB 
3F 3F 3F 
49 49 49 
3E OF DB 
3E DF DB 
35 3F FF 
89 08 29 
37 6D 49 
77 60 49 
49 35 FF 
3F 3F 3F 
2D 20 AD 
20 IE 3F 
3F 3F 3F 
35 37 35 
49 29 3E 
3E DF DB 
DF 3B 2E 
49 09 35 
49 89 35 
49 89 35 
F5 87 49 
89 6D 29 
37 6D 89 
FF IB 37 
FF 3B 56 
35 FF DB 
6D 49 35 
20 4D 09 
29 3E DF 
35 3F DF 
99 60 29 
17 2D IE 
2D 2D 3E 
3F 17 2D 
2D 3E 37 
40 89 3F 
6E 2D 3E 
3F 3F 3F 
20 IE 37 
4D 49 29 
9E 35 B7 



££A75E 
££F97E 
££5154 
££B1F4 
££EF9A 
££A8F6 
HEDAE 
££7649 
££7649 
££6936 
££C394 
££AC3E 
££1?E8 
££C034 
££E940 
£E627F 
££8033 
££4FBF 
££1490 
££B6C8 
££21E8 
££1CEP 
££3201 
££6A94 
££F866 
££B775 
££1C06 
££B1ED 
££DAFA 
££4346 
££4346 
££0462 
££7908 
££A?5E 
££F87E 
££BF9D 
££6E25 
££A5EB 
££FAEB 

mm 

££EF21 
££A4FB 
££450E 
££9C3E 
££37CD 
££B8BC 
££4A31 
££9532 
££FEA7 
££A954 
££9441 
££2E15 



BSAVE TREIZE.FOf 



EV$4000. LS5C4 



TREMFUN MICRO 
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Votre bibliotheque 
INFORMAT1QUE 



• LOGO POUR APPLE 
(Dunod/BO-PRE) 

Ces tobies de references nous arri* 
vent du Canada et nous les devons 
aux Editions BO-PRE, Elles ont ete 
troduites de I'americain (Logo Refe- 
rence Flip Chart) par Louise 
Laplante, La bonne idee que voila ! 
Un systeme astucieux permet en 
effet de disposer ces tables debout, 
pres de ('Apple, et de les consumer 
facilemem\ du fur et a mesure des 
necessites. Si vous vous interessez 
au Logo, vous saurez I'essentiel sur 
les touches de controle, les touches 
speciofes, les termes Logo, les com- 
mandes usuelles, les messages 
d'erreur, la grille de I'ecran-texte, la 
direction de la tortue H les coordon- 
nees, les fonctions mathematiques, 
les commandes pour flchiers et les 
exemples de procedures. 
C'est une belle edition, sur un papier 
de qualite. La partie chevalet est en 
carton super riglde, Bref : du bel 
ouvrage ! 



* 14 LL Ul 




• LOTUS L2.3. POUR IBM PC 
(Dunod/BO-PRE) 

Meme formule que le LOGO POUR 
APPLE, mais il s'agit cette fois de 

■■■■■■MinHuiMuiHnvHnmi 
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tables de references destinees aux 
utiNsateurs du fameux LOTUS 
sur 1MB PC (et compatibles), 
Cette edition merite les memes elo- 
ges que la precedente, mais elle est 
beaucoup plus consistante : LOTUS 
est un gros morceau i 



• APPLEWORKS 
(Cedic-Nathan) 

Voici une bonne traduction du livre 
de Charles Rubtnj aufeur ouquel la 
Californie et Appleworks ont inspire 
des expediences interes-santes... et 
un ouvrage qui ne Test pas moins. 
On salt qu' Appleworks est en passe 
de devenir un produit modele dans 
la gamme des logSciels Apple, mais 
en connaTt-on reellement les multi- 
ples possibilites ? II est permis d'en 
douter, surtout quond on lit, sous la 
plume de Rupert Lissner, le constat 
suivant : 'Les developpeurs de logi- 
ciels comme moi se demondent sou- 
vent quelle infime fraction des appli- 
cations qu'ils ont si loborieusement 
construites pour leurs logidels est 
effedivement utilised Un program- 
meur ne saurait cependant etre plus 
satisfaft de Tutilisateur nomme Char- 
les Rubin qui realise avec Apple- 
works des operations que je n'aurais 



APPLEWORKS 

La jxswuntr 
uuscrV".-.- 

Ck> voire t '" ' ' 




C H A H L E 



RUB 



par Clement RENARD 

pas moi-meme envisagees. Par 
example, sa technique de creation 
de lettres gvec Appleworks, qui, 
sans rendre necessaire I'achat d'un 
second programme, vaut 6 elle seule 
le prix de cet ouvrage../ 1 . Et Rupert 
Lissner sait de quoi il parle j C'est 
dire tout I'interet de ce livre ! 




LA ROM 
DE L APPLE fl 



PL, 
< 
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• LA ROM DEL 'APPLE It 
(Sybex) 

En quelques mois, au PSI et chez 
SYBEX, Marcel Cottlni a publie plu- 
sieurs ouvrages magistraux sur 
Apple : L'assembieur de i Apple If et 
Programmatlon systeme de I'Appfe II 
(voir notre dernier numero) et La 
Rom de I'Apple //.„ qui nous inte- 
resse aujourd hui. 

Je connais Marcel Cottint et cela me 
gene un peu car je n r ai qu'un mot a 
dire sur son bouquin : ACHETEZ ! 
Offrez-vous cette nouvelle Bibfe de 
I'Apple U, notamment si vous prati- 
quez plus ou moins le langoge 
machine. II vous eclairera sur bien 
des points de la ROM... et en fran- 
cais r ce qui est tout de meme rare ! 
Notez qu'un autre volume sera 
consacre a I'Apple He. 

llffH01flfBI«0fl||fi«i»Hffflifl|i||fta 
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ESSAI DELOCICIEL 



Clement RENARD 




UN LOGICIEL FRANCIS 

aussi simple qu'efficace 

ERSION Liste necessite une souris, un Apple tic ou He et un lecteur de disquettes. Comme 
son nom I'indique, ce logiciel oHre un certain nombre de facilites a celles et a ceux qui sont 
amenes a utiliser des fichiers. II permet en effet de creer une liste, de la trier, de I'imprimer, 
de la sauver dans les fichiers mailing d'Epistole... tout cela d'une maniere simple et efficace. 



Le manuel dlnitiatlon : 

Rien 6 redire. Comme Fa pluparf des documentations accompa- 
gnant les produits de Version Soft, il se veut court, voir succinct, 
maisd'une grande clarte, II autorise une prise en main qui, dans 
le pire des cos, ne depassera pas quelques petites heures. Dans 
une premiere partie, or initie d'obord les debutants au manie- 
ment de la souris et des menus deroulants, mais la plupart des 
utilisateurs escomoteront sans doute ces quelques pages. 

On passe ensuite au repertoire des diverses options de Version 
Liste, lesquelles sont etudiees dans un ordre on ne peut plus logi- 
que. Des photographies d'ecrans completent un texte dont on 
apprecie la concision. A noter que la demiere partie du manuel 
devoile un certain nombre d'astuces capables d'eviter d'inutiles 
manipulations. 

L'UtillSCItiOn Ce qui saute d'abord oux yeux, c'est la 
qualite du graphisme des ecrans. Double 
haute definition oblige 1 Autre remarque : une rapidite de bon 
aloi. Version Liste fonctionne sous ProDOS et if est ecrit en 
assembleur. Ceci explique evidemment cela. Detail interessant : 
suivant le materiel de lutilisateur, ce logiciel est fourni sur une 
disquette 5 pouces 1/4 ou sur une disquette 3 pouces 1/2, Je n'ai 
personnellement teste que la premiere version et je le regrelle, 
Il est certain que TUnidisk et des disquettes de B00 Ko offrent de 
meilleures possibility 

En elfet r dans certains cos, avec les disquettes 5 pouces 1/4, il 
est necessaire d'introduire lo face Exempies dons le lecteur prin- 
cipal.,, el I on se passerait assuremenl de cette petite gymnasti- 
que. Reproche mineur, mais reproche tout de meme ; il aurait 
ete facile de faurnir deux disquettes (dont le cout n'aurait d'ail- 
leurs pas depasse celui d'une seule disquette 3 pouce 1/2). Je 
suis sur que les responsables commerciaux de Version Soft vont 
remedier a celo dans de tres brefs delais. 

Car on ne sauroit emettre de critiques malveillantes sur le reste. 
Comme le dif lo notice, avec Version Liste, vous gerez vos 
fichiers en toute securite, et c'est apparemment exact (est-on 
jamais sur de quelque chose en matiere dlnformatique ?]. Tris 
rapides, selection sur des aiteres numeriques ou alphanumeri- 



ques, possibility de creer jusqu'd 40 rubriques. La souris existe et 
elle le prouve : copier, couper, col ler r effacer r rechercher ou 
remplacer des mots, les editor [sous forme de liste r de pages ou 
d'etiquettes).„ On se croirail sur un Macintosh... mais avec quel- 
ques dizainesde mi lliers de francs en moins. C'est un constat fort 
agreable en verite ! 

Pes options interessantes Je ne vafs pas. 

dans le cadre de 

cette courte etude, passer en revue les differents menus derou- 
lants de Version Liste. Je vous laisse lesoin.de les decouvrir chez 
votre concessionnaire Apple. Toutefois, je m'en voudrais de ne 
point parler du menu "formats". Non content de mettre a votre 
disposition des fonctions de presentation (cadrer a droite ou a 
gauche, centrer), il offre des facilites assez mattendues : 

- Entier convertit en nombres entiers les nombres contenus 
dans la colonne selectionnee et les cadre systematiquement a 
droite de cette colonne, Toutefois r si la colonne conlient des 
chaines alphanumeriques et numeriques, seules lessecondes 
resteront of ficbees et cadrees a droite, 

- Decimales permet davoir deux chiffres apres la virguld. La 
aussi, le texte disparait... mais peut etre rappele [vofr ci- 
d ess us), 

- Pourcentage ajoute le signe % a la fin de chaque saisie de la 
colonne selectionnee. 

- Francs ajoute F a la fin de chaque nombre (vous vous en dou- 
ttez un peu, non ?}, 

Et il est toujours possible, avec Toptlon alphanumerique de 
retrauver la colonne sous sa forme initio le. 

Le logiciel transmetfra eventuellement vos fichiers vers les 
autres utilitaires de Version Soft : Version Cole, Version 
Texte et Epistole. 

Mention TRES BIEN pour Arnaud Lerondeau et Alban Liger, 
des Eleves de I'Ecole SupeVieure dlnformatique et mention 
BIEN pour Pascale Couderc r la redactrice du manuel. c r. 
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ROUTINE LM 



DOS 3,3 



Pro DOS 



NESTOR 



CADRE-SOURIS 

avec les nouveaux Apple lie et lie 



POURQUOI ne pas utiliser les caracteres souris 
des nouveaux Apple pour tracer un cadre (cor- 
rect) en mode texte ? Cest ce que fait la rou- 
tine LM que je vous propose ici. Elle peut evi- 
demment etre raccourcie (les commandes peu- 
vent etre donnees a partir du Basic). Taper la 
demo ci-contre ne vous fatiguera ni te poignet 
ni le bout des doigts, A vous de jouer ! 



CADRESOURIS 



0300- 


A9 


03 




LDA 


£$Q3 


0302- 


20 


95 


FE 


JSR 


$FE95 


0305- 


A9 


11 




LDA 


£$11 


0307- 


20 


ED 


FD 


JSR 


$FDED 


Q30A- 


A9 


IB 




LDA 


£S1B 


030C- 


20 


ED 


FD 


JSR 


$FDED 


030F- 


20 


80 


FE 


JSR 


$FE80 


0312- 


AO 


27 




LDY 


£$27 


0314- 


A9 


4C 




LDA 


£$4C 


0316- 


91 


28 




5TA 


C$28) ,Y 


0318- 


88 






DEY 




0319- 


10 


FB 




BPL 


$0316 


031B- 


AO 


00 




LDY 


£S0Q 


031D- 


A9 


5A 




LDA 


£$5A 


031F- 


91 


28 




STA 


<S28) ,Y 


0321- 


AO 


27 




LDY 


£$27 


0323- 


A9 


5F 




LDA 


£$5F 


0325- 


91 


28 




STA 


<$28) t Y 


0327- 


20 


66 


FC 


JSR 


$FC66 


032A- 


AS 


25 




LDA 


$25 


032C- 


C9 


17 




CMP 


£$17 


032E- 


90 


EB 




BCC 


$031B 


36 













100 HOME ! PRINT CHR$ <4) W BL0AD CADRES 

CUR1S" 
110 CALL 768 
120 GET R$ 

139 TEXT : HOME 

140 VTAB 22: PRINT "<1> ENCORE <2> HEN 
U DISGUETTE <3> FIN GET R$: P 
RINT 

150 IF R$ = M" THEN 110 
160 IF R$ - "2" THEN VTAB 20: CALL - 9 
58; PRINT "TAPER RUN MENU"; CALL - 
1438 

m IF R* < > fl 3" THEN 140 
180 HOME 



INITIALISATION 



$FE95 (avec A = $3) correspond 6 PR£3. 

Ici, il s'agit de PRINT CHR$ (17} — 40 colonnes 

PRINT CHR$ (27) — CARACTERE SOURIS 
SETINV : affichage en mode inverse. 



CADRE HAUT 

$AC — L qui represente le souligne. Precede classique 
avec odresse de la ligne lue en $28-29 — HTAB est con- 
ten u dans Y. 



BORP5 CAUCHE ET DROIT 

$5A = Z qui represente le filet vertical gauche 
$5F = — qui represente le filet vertical droit 

On poque d'obord le bord gauche, puis le bard droit (Y = 

puis Y = $27), 
$FC66 (LF) envoie un retour figne 



GU Y"H ACHETTE 



nT^n- 


ttT 


nn 




r nA 




U JJi 








Jin 




1/-JO*! 


nU 






r nY 




UOOD 








r ha 








to 




^TA 

Jin 


f$9R) Y 




(JO 






UJ_i 1 






nn 


FR 




RNF 

LIU Li 


$n?^R 




n 7 






LDA 


f SI R 




?n 


pn 


r u 








AO 

n t 






t nA 

bun 


f $n? 


y 0*1*1 


RR 


?*> 
£3 




STA 
Jin 




y ot w 




R4 


r c< 


JSP 

V .-J A 




(1349- 


RR 






■jin 




V -J*11J 


RR 


?n 




STA 


s?n 


034D- 


AO 


1 R 




r da 

bun 




034F- 


85 


23 




STA 


$23 


0351- 


A<? 


24 




LDA 


£$24 


0353- 


85 


21 




STA 


$21 


0355- 


4C 


6F 


F2 


JMP 


SF26F 



BASE PU CADRE 

On place $D0 dans $28 {$'29 tontient deja $7)... et on a 
bien $700 dans $28-29, ce qui permer de poquer le der- 
nier bord du cadre. 



TERMINI 



PRINT CHR$ (24), pour les caracteres normaux. 
VTAB 02 puis mode normal ovec $FE84. 



POKE 34 r 2 — POKE 32,2 puis POKE 35,21 — POKE 33,36, 
Sur votre Apple lie, terminez plutot par 4C 22 FC qui pla- 
cera le curseur au bon endroit. 



BASIC SIMPLE 



ProDOS 



100 TEXT r HOME 

116 DIM L$«8),BS<38> 

120 VTAB 18; PRINT "ENTREZ UN TITRE (30 CARACTERES MAXIV 
130 VTAB 20: INPUT ;T$; HOME 
140 IF T$ = " THEN 280 

150 L = LEN <T$); IF L > 38 THEN PRINT : PRINT "TR0P LONG: 

PAS PLUS DE 38 CARACTERES! " : GOTO 120 
160 GOSUB 260 

170 FOR 1 = L TO t STEP - 1:J = INT < RND C1J * 1 + 1>:M»( 

I) = L$CJ):L$<J) = L$(I>: NEXT 
180 GOSUB 260 

190 H = 1ST ((41 - L) / Z) - 1 
200 FOR I * 1 TO L 

210 FOR J = L TO 1 STEP - 1: IF UK J) = Hit!) THEN OKI) = 

uu : GOTO 230 
220 NEXT J 

230 VTAB 3: HTAB H + J: INVERSE : PRINT «(J)i NORMAL :L$< 
J) - 

240 GOSUB 270: NEXT I 
250 GOTO 280 

260 FOR I - 1 TO L:L$(I> = MID* (T$,M): NEXT : RETURN 

270 FOR K = t TO 6:X = PEEK < 49200): NEXT K: RETURN 

280 VTAB 22: PRINT M <E>NCQRE <M>ENU 0ISQUETTE <T>ERMINE @ H 

11 GET R$ 
285 PRINT R$: IF R$ = U E" THEN RUN 
290 HOME : IF R$ = 11 M M THEN PRINT CHR$ C4V RUN MENU" 
295 IF R$ < > *V THEN 280 



Titre 

mysterieux 



Ce n r est ni genial ni ires ori- 
ginal, mais ce court pro- 
gramme en Basic a le 
merite de montrer aux 
debutants comment melon- 
ger aieatoirement les let- 
tres d'une phrase, puis les 
remetfre, en ordre en les 
oftichont d'une maniere un 
peu mysterieuse, 

De lelles routines nous sont 
souvent demandees par nos 
ami(e)s enseignant(e)s t 

Merci a Michel Delacroix 
d'avoir penseaeux ! 
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ROUTINE LM 



DOS 3,3 



ProOOsJ 



Clement RENARD 



Rideau 



Trois petites routines en une : 

• Remplissage de I'ecron fde $303 a $318] 

• L everderfdeog(de$31Da$334); 

1 0uvfeil ^^eaux(de$335a$362), 
Commence* par taper j e court program^ 
me de demonstration en Basic/ 
La formula Y = ABS (Y — 1) donne alter- 
nativement la valeur 1 ou a i Y Cede ci 



RIDEAU 



0300- 
0303- 
0305- 
0307- 
0309- 
030A- 
030C- 
9S9E- 

0310- 

0312- 

0314- 

0317- 

0319- 

031B- 

031D- 

831 F- 

0322- 

0324- 

0326- 

0328- 



20 
A9 
A0 
91 
88 
10 
E6 
A5 
C9 
B0 
20 
90 
AS 
D0 
C6 25 
20 1A 
A9 A0 
A0 26 
91 28 
88 



58 
20 

27 
28 

FB 

25 
25 
18 
05 
22 
EA 
06 
18 



FC 



FC 



FC 



JSR 


$FC58 


LDA 


£$20 


LDY 


£$27 


STA 


($28), Y 


DEY 


BPL 


$0307 


INC 


$25 


LDA 


$25 


CMP 


£$18 


BCS 


$0319 


JSR 


$FC22 


BCC 


$0303 


LDA 


$06 


BNE 


$0335 


DEC 


$25 


JSR 


$FC1A 


LDA 


£$A0 


LDY 


£$26 


STA 


C$28) t Y 


DEY 



130 * DEMONSTRATION" : GOTO 

120 CALL 768 
130 CALL - 198: POKE - 16368 0- WAIT 

140 V = ABS CY - l) 
150 POKE 6.Y: IF X < > 27 THFN 
1« POKE 34.1.: rore 32 a ^ L 20 
: POKE 35,20 3,20 
170 VTAB 10; print 

188 m ool,i ?mi "<1> ENCORE- : PRI Nr 
i PRINT "<2> MENU DISQOETTK 1 i PRIM 

l« ™ ™ NT "< 3 > ™NE 

190 G S W.'R - ASC CRt) - 48 IF R < J 
OR R > 3 THEN 190 

M?E W 2 ;*' P0KE 32>0 -' P ° KE 33 '*> = 

m mm cm „>. m mu . 



HOME troditionnel. 

SSSfrSffi^ ($2S) ^ - --Port VQ , eur B 

inverse { $ 20 f 6 J'ad4«.7ue en MfiVl mode 
facile a comprendre. No ^l e $ l C ll S^/' L ? SU " e est 
en CV ($25). que * FC22 Replace le corseur 



LEVER PE PIPBfl^ 

d'effacera^cfespacenormal * '°' S ' " 5 a 9* f 
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0329- 


00 


FB 




BMP 


*kj wad 


032B- 


20 


A8 


FC 


JSP 




032E- 


A5 


25 




r n a 


*oe 


0330- 


C9 


01 




\ji iL 




0332- 


m 


EB 






: iV; • ' 1 IP 


0334- 


60 






I\ 1 o 




0335- 


A9 


13 




r ha 


f $ 1 ^ 


0337- 


85 


06 




ST A 




0339- 


85 


07 








033B- 


E6 


07 




INC 




033D- 


C6 


25 




DEC 

U J_i 




033F- 


20 


1A 


FC 


JSP 


*r ^ i n 


0342- 


A9 


A0 




LDA 




0344- 


M 


06 




LDY 




0346- 


91 


28 




STA 


v *PtiO ^ , I 


0348- 


A4 


07 




J— i X 


H*eJ f 


034A- 


91 


28 








034C- 


A5 


25 




LDA 




034E- 


C9 


01 




CMP 


f $0 1 


0350- 


D0 


ED 




uiijj 




0352- 


8A 






TXA 




0353- 


20 


A8 


FC 


JSR 




0356- 


E6 


07 




INC 




0358- 


C6 


06 






w u 


035A- 


F0 


06 




BEG 


$0362 


035C- 


A9 


17 




LDA 


i$17 


035E- 


85 


25 




STA 


$25 


0360- 


D0 


DD 




BNE 


S033F 


0362- 


60 






RTS 




BSAVE RIDEAU , A$30O, L$63 





et sans toucher aux bords de I'Scran {de 01 a $26) WAIT 
($FCA8) donne le temps de voir lo rideau se fever 
sinon ce serait trop rapide, 
Quand CV ($25) contient 01 ( on a termine 



OUVREZ LES RIDEAUX 

$6 contient la position du rideau gauche et $7 celfe du 
rideau droit... et c'est part*. On efface successivernent 
cheque rangee verticaPe, a gauche d'abord, puis a 
droite* 

La encore, if faut utiliser WAIT (qui est fonction de fa 
valeur de A. Celled est obtenue en passant X dans A 
(TXA)) + 

Le resultat est moms heureux r a nos yeux que celui de 
LEVER DE RIDEAU, On y note un effel de dechirure. 
II faudrait effacer plus rapidement chacune des rangees 
verticales de J'ecran... 



Retour au BASIC 




QUESTION : 



REPONSE : 



Comment ecrire, en 
langage machine et 
sous DOS 3*3, un pro- 
gramme Basic comme 
celuf-ci ? 



10 
28 

on 
_ -_i 

40 
50 

40 



GET R$ 
IF R$ <> J 'C" 
THEN 60 
HOME 
PRINT 

PRINT CHR*<4> 
" CATALOG" 
RETURN 

Mkhel DUETANG (ANNECY). 
MHMMMHMl 
TREMPLIN MICRO 



9300- 
0393- 
0305- 
6307- 
030A- 
39D- 
030F- 
0312- 
0315- 
9314- 
8318- 
0319- 
931 C- 
031 F- 
8321 - 



26 

C9 

00 

20 

28 

A2 

BD 

20 

CA 

10 

60 

8D 

CC 

CI 

84 



0C 
C3 
1 1 
58 
8E 
08 
19 
ED 

F7 

C7 

ci 

C3 



FD 



FC 
FD 

03 
FD 



CF 
D4 



JSR 
CMP 
BNE 
JSR 
JSR 
LDX 
LDA 
JSR 
DEX 
BPL 
RTS 
RETURN 
L 
A 

CHR$(4) 



$FD0C 

£$C3 

$0318 

$FC58 

*FD3E 

£*08 

*6319,X 

*FDED 

*030F 



GET R$ 

JFR$ < > "C THEN . 
HOME 

PRINT OBLIGATOR 



PRINT CHR$(4) 
'CATALOG" 



Tout est 
lu a 

I'envers 



39 



DOS 3.3 



ProDOS 



NESTOR 



Effets speciaux 

I'ecran se remplit, mais en colimapn ! 

AMU5ANTS. . cm rampiissagu successifc de I'ecran par des astarisquas (avec effet de scintilla- 
meat). Vaus las stopperez en appuyant sur la louche ESCAPE... e. abtiandraz .Zn ai l 



100 PRINT CHR$ <4)-BL0AD SPIRECADRB" 
105 HOME : VTAB 12: PRINT " ESCAPE POUR 
TERMINER LA DEMONSTRATION" : POKE 

- 16368,6: WAIT - 16384 J 28: POKE 

- 16366,6 
110 CALL 768 

115 POKE 34.10: POKE 32,10: POKE 33,20 

s POKE 35,20 
120 VTAB 10: PRINT 

125 PRINT : PRINT "<1> ENCORE" : PRINT 



* PRINT "<2> MENU DISQUETTE" : PBIN 
T i PRINT "<3> TERMINE 
130 GET R$:R = ASC (R4) - 48: IF R < 1 

OR R > 3 THEN 130 
135 POKE 35,24: POKE 32,0: POKE 33,40: 

POKE 34,0 
140 PRINT : ON R GOTO 145,150,155 
145 GOTO 110 

150 PRINT CHR$ (4) "RUN MENU" 
155 HOME 



A^h7^ M C ° mmenCe * P artir de I'adresse $2?4, cest-a-dire dans le BUFFER D'ENTRFP 

•2A3:7C N 2B 2 " N 2BE N 7 C ~~ ' **~ VolsUrS 5uiv ° n,es : 

Pour terminer, r.mploeez le CAll 740 de la ligne 110 par un CAU 648 (636+ 1 2). 



Q2F4- 


A9 


20 




LDA 


£$20 




02F6- 


91 


28 




STA 


($28) ,Y 




02F8- 


20 


A8 


FC 


JSR 


SFCA8 




02FB- 


A9 


AA 




LDA 






Q2FD- 


91 


28 




STA 


($28) t Y 




02FF- 


60 






RTS 


J 


0300- 


20 


58 


FC 


JSR 


SFC58 




0303- 


A9 


IB 




LDA 


£$1B 




0305^ 


85 


09 




STA 


$09 




0307- 


A9 


OC 




LDA 


f$0C 


_ 


itmmmmmmm 

40 


mmmmmt 


win 


mini 









SOUS-PP QCPHMME "POKE" 

On Hf en $28-29 I'adresse de la ligne en cours. 

Y - HTAB $FCA0 est une boucle d'attente (so longueur 

depend de la valeurde Aet, id, A = $20). 

° n P /?5!y n espace e " mode Averse ($20), purs I'asteris- 
que ($AA) en mode normal. 

INITIALISATION 
HOME traditionnel, 

SlfTteu^r '** adresses * 6 et $ 9 ^ la page zero com me 



GUY-HACHETTE 



0309- 
030B- 
030D- 
030F- 

0311- 
0313- 
0316- 
0318- 
031A- 
031 D- 
031F- 
0321- 
0322- 

0324- 
G327- 
032P- 
032C- 
032E- 
0330- 

0332- 
0334- 
0335- 
0338- 
033A- 

033C- 
033E- 
0340- 
0342- 
0345- 
0348- 
034A- 
034C- 

034E- 
0351- 
0353- 
0355- 
0358- 
035A- 
035C- 
035F- 
0361- 
0363- 
0366- 
0368- 
036ft- 
036C- 
036D- 
Q36F- 
0371- 
0373- 
0375- 
0377- 



PC 



85 08 
85 07 
A9 OB 
85 06 

85 25 

20 22 

A4 07 

E6 09 

20 F4 02 

C4 09 

FO 03 
C8 

DO F6 

20 66 FC 
A4 09 
20 F4 02 
A5 25 
C5 08 
DO F2 
C6 07 
88 

20 F4 02 
C4 07 
DO F8 

E6 06 
C6 06 
C6 25 
20 22 FC 
20 F4 02 
A5 25 
C5 06 
DO F2 

AD 00 04 
C9 AO 
FO CI 
AD 00 CO 
C9 9B 
DO A4 
2C 10 CO 
A9 17 
85 25 
20 1A FC 
AO 01 
A9 AO 
91 28 
C8 

CO 27 
DO F9 
A5 25 
C9 01 
DO EC 
60 



STA 
5TA 
LDA 
STA 

STA 
JSR 
LDY 
INC 
JSR 
CPY 
BEG 
INY 
BNE 

JSR 
LDY 
JSR 
LDA 
CMP 
BNE 
DEC 
DEY 
JSR 
CPY 
BNE 

INC 
DEC 
DEC 
JSR 
JSR 
LDA 
CMP 
BNE 

LDA 
CMP 
BEG 
LDA 
CMP 
BNE 
BIT 
LDA 
STA 
JSR 
LDY 
LDA 
STA 
INY 
CPY 
BNE 
LDA 
CMP 
BNE 
RTS 



$08 
$0? 
£$0B 
$06 

$25 

$FC22 

$07 

$09 

$02F4 

SO 9 

$0324 

$031A 

*FC66 

$09 

S02F4 

$25 

$08 

$0324 

$07 

$02F4 

$07 

$0334 

$08 

$06 

$25 

$FC22 

S02F4 

$25 

$06 

$0340 

$0400 

£$A0 

$0316 

$C00O 

£$9B 

$0300 

$C010 

£$17 

$25 

$FC1A 

£$01 

JEMO 

($28) ,Y 

£$27 

$036A 

$25 

£301 

$0363 



$7 = Limit© HTAB gauche — $9 = Limit* HTAB droit© 
$6 = Limit© VTAB sup. — $9 - Umfte VTAfl Int. 



HORIZONTALEMENT (gauche a tiroite) 

$FC22 (VTAB) deplace le curseur en CV ($25). L'adresse 

de la ligne, caleulee par SASCALC est en $28-29. 

Y est charge avec Limit© HTAB gauche ($7) et Li mite 

HTAB droit© {$9} est increment©©, 

Quond Y ©st ©gal a $9, on sort de la bouele. 



VBRTICALEMEHT <du haut vers le bas) 

$FC66 (LF) fait passer 6 la ligne suivante — Y est charged 
avec limit© HTAB droit© ($9) — Si la valeur de VTAB ($25) 
n'est pas ©gale 6 Limit© VTAB INF ($B), on continue. 



HORIZONTALEMENT (droite a gauche) 
AAeme processus que plus haut, mais 6 reculons. 



A fa sortie, ne pas oubfier les pointeurs pour la suit© des 
operations. 

VERTICALEM1HT (de bas en haut) 

L6 encore, meme combat que plus haut. 



TEST FIN 

Si I'octet $400 est toujours un espace [$AQ) t on n'a pas 
termine la page ! 



Si la touch© ESCAPE n'a pas ete enfoncee, on continue. 
£a ( c'est un POKE — 1 6368,0, 



VTAB ($25) est charge avec $17 (23., . dernier© ligne), 
puis $FC1 A (VP) remonte le curseur a la ligne au-dessus. 
Y est charge avec 1 ©t A ovec $Afl (©space),., et on efface 
la ligne... puis une autre, et ainsi de surte, jusqu'6 la 
ligne n°l , FinaJement, il ne rest© que le cadre. 



Lvi non-lnltrd se co rite rite rant d* taper un CALL — 151, pull 
let different* cod** rfu programme. Example : 
*2F4: A9 20 »t 20 20 AS FC... rfthirA 
*2FBt A9 AA 91 28 40... return... »tc. 

Pour tormlnor t BSAVE SP1RECADRE, *A2F1 P A$U om BSAVE 
SP I RECAP RE, A756, L132. 



Retour au Basic. 



TflEMPLIN MICRO 



mm 



DOS 3*3 



ProDGS 



Thierry CAUTHIER 



Inversion d'ecran 

double haute resolution 



LE succes du concept MAC INTOSH, avec ses 
menus deroulants, sa tres haute resolution, 
la souris, etc. oblige en quelque sort© 
DAPPLE He a se mettre a la page P et pour 

cela il faut avoir recours a la double haute 

resolution. Malheureusement on trouve 
encore peu d'articJes presentant des routines ou des utili- 
taires tSrant partie des cartes CHAT MAUVE et EVE, pour 
ne titer qu J elles. Aussi j'espere que cette routine dinver- 
sion d r ecran vous inspirera. Une chose est sure : elle sera 
tres utile dans votre bibliotheque de routines graphiques. 

PRINCIPE DU PROGRAMME : 

Lalgorithme diversion d'un octet est relativement 
simple, puisqu'il revient a complementer les bits du dit 
octet. Pour celo, le microprocesseur dispose d'u-ne ins- 
truction efficace : EOR, qui realise un 'OU exclusif" de lo 
valeur contenue dans Taccumulateur avec la vaJeur de 
VAL. Par exemple, si Ton a VAL = $FF et $05 dans I'accu- 
mulateur (soit, en binaire les valeurs 11111111 et 
00000101), un N OU sxdwF changera la valeur $05 en 
$FA soit 11111010. 

En mode double haute resolution, ['image est en quel- 
que sorte un entrelasse d'octets. 

La repartition de fa memoire est similaire a cefle 
employee pour la haute resolution standard. Cest-6-dfre 
que fa premiere adresse de I'image commence en $2000 
(8192), Un bit mis a vn indique qu'un point est allume, un 
bit d zero indique que ce point est eteint. Un octet repre- 
sente une serie de sept points sur Tecron. Pourquoi sept 
et pas huit ? Parce que, dans chaque octet, le bit de poids 
fort est ignore. Un octet correspond done a sept points, 
allumes ou non, Jusque-16 rien de nouveau diront cer- 
tains, le petit plus, e'est pour mointenant I 

L'entreiasse se fait entre deux zones de la memoire, 
les pages 1 et IX, Ces pages ont les memes adresses 
($2030 a $3FFF), mais la page 1 se trouve en memoire 
pnncipale alors que la page IX se trouve en memoire 
auxiliary. L'offichage d'une image revient a visualiser 
192 lignes de 40 paires de 14 points chacune. 

Les octets d'ordre pair sont stoekes en memoire 



80STORE (C0G1) 
HIRES (C057) 
PAGE1 (C054) 
PAGE IX (C055) 



uinitHiiiiii 



auxiliaire (page IX), les octets d'ordre impair sont en 
memoire principals, mais ils ont la meme adresse que 
ceux de la page IX. 

Pour une Ifgne, on a done la sequence suivante : Points 
de a 6, 14 a 20... 545 a 552 en page IX, points de 7 a 13, 
21 a 27... 553a 559 sont en page 1 , 

Le programme devra done inverser les octets des paaes 1 
et IX. y 

L'acces en ecriture sur la page IX (memoire auxiliaire) 
est rendu possible en positSonnant des commutateurs 
logidels presents dans la memoire principale de ('APPLE. 
On utilisera 4 commutateurs : 
AN3 (COSE) doit etre debranche, 
fflCOL. 80STORE et AN3 peuvent 
dtre correctement positionnes 
par un PR£3 

Le branchement des deux commutateurs HIRES ef 
80STORE est necessaire pour modifier le role de FAGE1 et 
IX. PAGE1 et PAGE1X decident si Ton commute la 
memoire principale ou fa memoire auxiliaire. 

La routine en assembleur a ete ecrite avec BIG MAC, 
elle prend un octet en memoire principale ('inverse sur 
sept bits, done avec une voleur $7F, puis commute la page 
IX, inverse Toctet et recommence jusqu'a la fin de la 
ligne. Elle calcule alors i'aaVesse de la nouvelle ligne a 
inverser, et oinsi de suite. 

COMMENT UTIL15ER CETTE ROUTINE : 
Le programme ci-apres, ecrit en BASIC, sert a position- 
ner les commutateurs double haute resolution graphjque, 
puis il dessine un cercle, un rectangle, inverse le cercle! 
le rectangle, puis taut I'ecron et boucle sur lui-meme. 

Pour utiliser cette routine a partir du BASIC, il faut etre 
en mode double haute resolution (560 X 192 points) et 
avoir def ini une zone a i nverser dont les valeurs extremes 
seront stockees dans des variables, elles-memes 
"pokees" a partir de I'adresse $5FF0 (24560), Se reporter 
au lisfage BASIC. Cette routine est relogeabJe mais if fou- 
dra modifier les adresses $5FF0 a $5FF5 en consequence. 

Thierry GAUTHIER. 
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GUY-HACHETTE 



10 PRINT CHR$ <4)"PR£3 N : PRINT : 
VTAB 10: HTAB 10; PR TNT "UN INS 

TANT S.V.P 1 7F69 

11 PRINT CHRS (4)"BLQADINVERT.SYS 

11 : REH ROUTINE CHARGEE EN $6000 BED! 

12 A = PEEK (49246) : REM ANNONCIA 

TEUR 3 DEBRANCHE 20 4D 

13 A = PEEK (49232?: REH MODE TEX 

TE A ZERO CGR) B648 

14 A = PEEK (49239): REM MODE HAU 

TE RESOLUTION "ON" 154F 

15 A = PEEK (49165)* REM AFT. 60C 
OLQNNES " ON" 344D 

16 POKE 49153,0: REM 80STORE "ON" 
ECRITURE EN MEV-AUX DF1B 

17 POKE 49156,0: REM RAMWRT ECRITU 

RE EN MEMO I RE PRINCIPALS 091E 
16 POKE 49154,0: REM RAMRD LECTURE 

EN MEMOIRE PRINCIPALS FC1C 
19 POKE 49236,0: REM PAGE 2 A ZERO 

= ACCES MEV//E 1A10 
30 HGR ; POKE 49237,0: REM PAGE2 A 
UN = ACCES MEV-AUX, ON EFFACE 
' L'ECRAN 22E9 
32 ADR = 24560: INVERT = 24576: REM 
ADRESSES $5FF0 ET $6000 DEBUT D 
B INVERT. SYS 0492 
35 PRINT CHR$ (4)"PR£3" 8B62 

40 CALL 62450: REM EFFACE L'ECRAN 
AVEC LA DERNIERE COULEUR UTILIS 

EE 4F8D 

41 POKE 49236 t 0: POKE 49234,0: REM 
ACCES MEV//E ET FULL HIRES EE72 

60 REM DESSIN DU CERCLE 

65 HCOLOR= 3 51C5 

70 FOR J - TO 7 STEP 0.5 / 10 C449 

80 X * 270 + 2 * 10 * COS (J):B * 

96 4 10 # SIN (J) 1351 

83 GOSUB 250: REM S/P SELECTION DE 
S POINTS PAIRS ET IMPAIRS EN ME 
V//E OU EN MEV-AUX E747 

85 NEXT J A3CC 

90 REM DESSIN DU RECTANGLE 

92 FOR X = 50 TO 100 :B = 40: GOSUB 
250: NEXT X: REM UNE HORIZONTAL 

E 88A5 

93 FOR B = 40 TO 55:X - 50: GOSUB 

250: NEXT B: REM ONE VERTICALE 5C68 

94 FOR X = 50 TO 100 :B = 55: GOSUB 
250: NEXT X: REM 2EME HORIZONTA 

12AB 

95 FOR B = 40 TO 55 :X = 100: GOSUB 
250: NEXT &r REM LE DERNIER COT 

E 5994 



TREMPLIN MICRO 



109 REM INVERSE LE ROND 

110 XB = 50: REM LONGUEUR EN X 4ECF 
120 YB = 25: REM LONGUEUR EN V 18D2 
130 CX = 245; REM PREMIER POINT A I 

NVERSER EN X 2F06 
140 CY = 83: REM PREMIER OINT A IN 

VERSER EN Y 7CD7 

150 GOSUB 400: FOR T - . TO 200: NE 
XT T: GOSUB 400 7A35 

151 REM INVERSE LE RECTANGLE 

152 XB = 56:YB = 21:CX = 47:CY = 37 
: GOSUB 400: FOR T = 1 TO 200: 
NEXT T: GOSUB 400 F66C 

160 REM INVERSE TOUT L'ECRAN 
170 XB = 559:YB = 191 :CX = 0:CY = B1F6 
180 GOSUB 400 REM S/P INVERSION EDO A 

Vous pourriez insurer ici une ligne com me eeJIe-d (il 
suffiro alors de mamtenir la louche POA/IME OUVERTE 
enfoncee... pour terminer la d£mo) i 

184 IF PEEK < 49219) > 127 THEN TEXT: 
HOME: END: REM POME OWERTE 

185 GOTO 109 3745 

249 REM S/P PARTAGE DES POINTS A AF 
FICHER EH MEV//E ET MEV-AUX, 

250 XX ■ INT (X / 7) :PG = XX - 2 * 
INT (XX / 2) F7E5 

260 XX = INT (XX / 2) # 7 + X - 7 

* XX 23EC 
270 POKE 49237,0: IF PG THEN POKE 

49236 ,0 1F7D 
280 IF XX > 279 THEN RETURN B443 
300 HPLOT XX »B 47B1 
310 POKE 49236,0: RETURN 7108 
400 REM S/P SEP ARE ADRESSE PART IE H 

AUTE ET PARTI E BASSE 
410 SX = XB;SY = YB + 1 :EX = CX EAA1 
420 POKE ADR, EX - INT (EX / 256) * 

256: REM LGXL A2B2 
430 POKE ADR + 1, INT (EX / 256): R 

EM LGXH 10DE 
440 POKE ADR + 2, (EX + SX) - INT ( 

(EX + SX) / 256) # 256: REM FIN 
DE LA LIGNE DANS EXL CE34 
450 POKE ADR + 3, INT ((EX + SX) / 

256); REM PARTI E HAUTE EXH A0A4 
460 POKE ADR + 4,CY: REM LONGUEUR E 

N Y DANS LGY AE54 
470 POKE ADR + 5 t CY + YB: REM FININ 

V - DERNIERE LIGNE A I NVERSER 7BB8 
480 CALL INVERT + 7: REM APPEL INVE 

RT.SYS F463 
490 RETURN 63B1 

(tvlta paga 44) 

43 



I 

2 

3 

4 

5 

6 

7 

8 

9 

lfl 

11 

12 

13 

14 

15 

16 

1? 

16 

19 

28 

21 

22 

23 

24 

25 

U 

27 

28 

2? 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

4B 

49 

58 

51 

52 

53 

54 



ORG $6968 
ASSEMBLEUR BIG MAC 



ROUTINE ©'INVERSION 
D'ECRAN 
DOUBLE HAUTE 
RESOLUTION 



INVERT.SYS 



I 

LGXL = $5FFB 

LGXH = $5FF1 

EXL = $5FF2 

EXH = $5FF3 

L6Y = $SFF4 

FINING = $5FF5 

HPAG * *E6 

GBASL = *26 

GBASH = *27 
1 

PAGE1X = iC855 

PAQE1 = *C854 
ft 

VARIABLES DE TRANSFER! 

# 

LXL DS 1 

LXH OS 1 

XL DS I 

XH DS 1 

CY DS 1 

N2 DS 1 

mSK DS 1 

DEBUT DU PROGRAMME 

LDA LGXL 

LDY LGXH 

JSR OCTETS 

STX LXL 

STY LXH 

LDA EXL 

LDY EXH 

JSR OCTETS 

STX XL 

STY XH 

LDA LGY 

STA CY 

LIGNE1 JSR CALCADR 

LDY LXL 

LDX LXH 

LDA LIABLE ,X 

STA MASK 



55 
56 
5? 
58 
5? 
£0 
61 
62 
63 
64 
65 
66 
67 
68 
69 
79 
71 
72 
73 
74 
75 
76 
77 
7B 
79 

m 

81 

82 
83 
04 
B5 
86 
87 

m 

89 
90 
91 

n 

93 



LIGNE 



# 

S/P INVERSE 

* 

OCTETS 
IW3 
IW2 



LDX 
SEC 
INX 



STY 


N2 


94 




sec 


£$07 


PHA 




95 




BCS 


im 


TYA 




96 




f)EY 




LSR 




9? 




BPL 




TAY 




96 




frJD 


m? 


PLA 




99 




TAY 




PHP 




188 




DEY 




SEI 




181 




RTS 




BIT 


PA6E1 


192 


ft 






BCS 


IWi 


183 


CALCUL ADRESSE 


BIT 


PAGE1X 


184 








LDA 


(GBASL) ,Y 


105 


CALCADR 


LDA 


CY 


EOR 


W\SK 


186 




PM 




STA 


(GBASL) ,Y 


187 




AND 


e$ce 


BIT 


PASES 


m 




STA 


GBASL 


PLP 


■ 


M 




LSR 




LDA 


£$7F 


lift 




LSR 




STA 




ill 




OftA 


GBASL 


1 DY 


N2 


112 




STA 


GBASL 


I NY 




113 




PLA 




CPY 


XL 


114 




STA 


GBASH 


BCC 


LIGNE 


US 




ASL 




PHP 




116 




ASL 




LDX 


XH 


117 




ASL 




LDA 


KTABLE,X 


US 




ROL 


GBASH 


STA 


MASK 


11? 




ASL 




PLP 




126 




ROL 


G8ASH 


BEQ 


LIGNE 


121 




ASL 




INC 


CY 


122 




ROR 


GBASI 


LDA 


CY 


123 




LDA 


GBASH 


CMP 


FINIMJ 


124 




m\> 


£$1F 


BCC 


LIGNE 1 


125 




ti.'-Vi 


HPAG 


RTS 




126 
127 




STA 

RTS 


GBASH 



£$FF 



128 ft 

12? TABLE D'ADRESSES 

m 

131 



# 

LTABLE 
132 HTABLE 



HEX 7F7E7C787A6048 
HEX B1B3B7BF1F3F7F 



8E 88 68 8C 
82 6B 8C B3 
68 AE 81 6B 
AS 6B 88 78 
68 91 26 2C 
CC 82 69 98 
F8 C8 EE 84 
38 E8 E9 67 
68 48 29 C8 
8A BA 26 27 
85 27 60 ?F 
7F E£FE7F 



88 80 
81 68 
66 AD 
BD 83 
2C 54 
54 CB 
D5 A8 
68 AO 
B8 FB 
85 26 
0A 26 
7E 7C 



U AD F8 
AD F2 5F 
F4 5F 8D 
60 BD 06 
CB B0 03 
28 A9 7F 
AE 03 6ft 
04 60 CD 
88 10 F7 
4A 4A 85 
27 8A 66 
7B 78 6fl 



5F AC Fl 
AC F3 5F 
84 60 28 
6B BC 05 
2C 55 CB 
BD 06 60 
BD BA 60 
F5 5F 90 
2? 07 A8 
26 85 26 
26 A5 27 
48 81 03 



5F 28 

28 7E 
BE 68 
68 48 
Bl 26 
AC B5 
BD 86 
AE 60 
88 6ft 
63 85 

29 IF 
V OF 



7£ 60 
60 8E 
AC 08 
98 4A 
40 86 
60 C8 
60 28 
A2 FF 
AD 04 
27 BA 
65 Ed 
IF 3F 



f EAAF6 
££8963 
££?6FC 
££AA4D 
££EEEE 
££5473 
££ft6?E 
££1478 
££?1BB 
£ECflC4 
££554D 
££B3B5 



BSAVE INVERT.SYS, A$6000, L$C1 
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GUY-HACHETTE 



GRAPHISME IggffllSHgM 



Cement RENARD 



La fenetre de texte 

de la page HGR2 



I vous ovez deja utilise la second© page gra- 

Sphique haute resolution (HGR2] H vous savez 
qu'elle est placee entre les adresses $4300 
et $5FFF (16384-24575). Comme la page gra- 
— — phique haute resolution normale (HGR), eJle 
se presente sous la forme de 280 points de 
large (40 colonnes de 7 points) et de 192 points de haut 
(24 lignes de 8 points}. 

On Unitialise par un banal HGR2 qui efface evidem- 
ment la zone-m£moire conternee, mais n'a aucune inci- 
dence sur le contenu de la page TEXTE ($400-$7FF), 

Est-il possible d'ecrire, comme en HGR, dans la fenetre 
de texte du basde I'ecran (lignes 21 a 24) ? La reponse est 
oui f mais vous avez pu deplorer les consequences d'un 
POKE — 16301 ,0 (qui ouvre cette fenetre et provoque 
l affichoge — 6 combien desagreable ! — de caracteres 
que Ton peut qualifier de "bizarres"). En foit, vous vlsion- 
nez alors une petite partie du programme Applesoft, 
geneYalemerrt charge a partir de I'adresse $801... debut 
dela page TEXTE 2. 

Pour etre en mesure de tirer le meilleur parti de ces 
quatre lignes, if convient done, dans un premier temps, 
de deplacer le programme en Basic, Cest ce que fait la 
ligne de notre premiere demonstration. Grace a ce 



subterfuge, le Basic sera recharge a partir de I'adresse 
24577 ($6001), Notez ('indispensable POKE 24576,0, 
L 'octet precedent un programme en Basic doit obligatoire- 
ment etre 6 zero. 

Et maintenant, tapez et s-auvez HGR4L.ES, puis lancez- 
le par le RUN traditionneL Normalement, votre Apple 
rechargera les excellentes lignes de votre routine a partir 
de I'adresse 24577, passera en mode HGR2, effacera les 
quatre lignes de texte.., et reeerira quatre fois la phrase- 
bidon dont vous allez bientot prendre connaissance. 

Les adresses des quatre lignes de la fenetre son! en 
DATA, mais il est possible de les obtenir par une boucle 
ressemblant a celle-ci : 

1 Of FOR I = 21 TO 24 : POKE 36,0: VTAB I : PRINT 
(PEEK(41) * 256 + PEEK(4@)) + 1024: NEXT 

Explication : 

On retrouve I'adresse de base de la ligne en 41-40... 
mais comme on desire travailler en page 2 r il faut y ajou- 
terl024. 

Je vous propose, en supplement, une demonstration 
plus elaboree... et plus rapide car elle utilise une routine 
en Icngage machine. Si vous etes courageux (ou coura- 
geuse) r essayez la aussi, Bonne program motion ! 

Clement RENARD. 



HGR4L.ES 

Comme vous I'avez !u 
plus haut, la ligne 
permet de paquer en 
103 et 104, la nou- 
velle adresse a 
laquelle sera LOADee 
la routine. 



IF PEEK <1«4) < > 96 THEN POKE 104,96: POKE 103,1: P0K 

E 24576,0: PRINT CHR* (4) "RUN HGR4L.ES" 
18 H6R2 

20 POKE - 1<S30J,0 

30 FOR I = 1 TO 4 s READ R : FOR J " R TO R + 39 ! POKE J, 16 

0: NEXT : NEXT 
48 T* = "LES QUATRE LI GNES-TEXTE DE LA PAGE HGR 2" 
50 RESTORE : FOR I = 1 TO 4s READ R:X - &: FOR J = R TO R 
4 39 sX = X + Is POKE J, ASC < MID* <T$,X,1)) + 128; N 

EXT s NEXT 
60 DATA 244G, 2748, 2896 ,3024 



TRiMPLIN MICRO 
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PRINT PEEK CI 04) 



100 D* = CHR$ (4): TEXT : PRINT CHR$ (21): HOME 

105 IF PEEK (104) < > 96 THEN POKE 104,96; POKE 103,1; 

POKE 24576,0: PRINT D$ U RUN HGR2,DEM04L H 
110 PRINT D$ fl BLOAD HGR4L B 
115 CALL 768 
120 VTAB 1 J GOSUB 220 

125 FOR I = 2000 TO 2039r POKE 1,160: NEXT 
130 GOSUB 220 t HOME 

135 PRINT " DEPART PROGRAMME!: 11 \\ FLASH 

* 256 + PEEK (103): NORMAL 
140 LIST 100,130 
145 GOSUB 215: PRINT : HOME 

150 VTAB 9: PRINT "LA FENETRE OUVERTE EN BAS DE LA 
"PAGE HGR2 EFFACE 4 ZONES DE LA ' 
INT 

155 X = X + 1: ON X GOTO 160,165,170,175,180 
160 T$ = B A5Q.A77 D823G" i GOTO 225 
165 T$ = "AD0.AF7 D823G": GOTO 225 
170 T$ = "B50.B77 D823G" : GOTO 225 
175 TS = N BDO *BF7 D823G" : GOTO 225 

180 VTAB 24: PRINT H ON RETROUVE 1CI LA LIGNE DE TEXTE 1 

DSUB 220: PRINT 
185 VTAB 22 i CALL - 958 
190 GOSUB 235; POKE - 16297,0: POKE 



HEMOIREi" : PI? 



16299,0: POKE - 1 



16304,0: CALL 822: GOSUB 220: TEXT 
"<i> MENU DISQUETTE <2> FIN DE TRAVAIL 



6301.0: POKE 
195 VTAB 24: PRINT 
•is GET R$ 

200 IF R$ < > B 1 B AND R$ < > n 2" THEN VTAB 23: PRINT : 
GOTO 195 

205 POKE 2048,0: POKE 103,1: POKE 104,8: IF R* T THEN 

PRINT : PRINT D$»RUN MENU" 
210 HOME : NEW 

215 VTAB 22: INVERSE : PRINT "PRESSEZ UNE TOUCHE S.V.P.": 
NORMAL 

220 CALL - 198: POKE - 16368,0: WAIT - 16384,128,127; P 

OKE - 16368,0: PRINT s RETURN 
225 FOR I = 1 TO LEN (T*>; POKE 511+1, ASC < MID* CT$,I 

,1)) + 12B: NEXT : POKE 72,0: CALL - 144 
230 GOSUB 220: PRINT : GOTO 155 



FDC7 

F807 
8949 
8331 
0351 
DFA6 
1A15 

5B7F 
OCOD 
50 OD 



9311 
211B 
78D5 
DBF3 
BFD7 
DFF5 

9FAA 
583B 

475A 

5F66 

D4D4 

29BD 
5090 

8FAC 

2861 

3ABA 
17B8 



235 POKE 230,64: HCOLOR* 3 B6E3 

240 XI = 40:Y1 = 130 :N = 5: GOSUB 260 97F4 

245 XI = 90:Y1 = 130 :N = 7: GOSUB 260 ACFB 

250 XI = 180 sYl = 70: GOSUB 260 486F 

255 XI = 230 :Y1 = 130: GOSUB 260: GOTO 265 5D1A 
260 FOR I = 1 TO N: READ X: READ Y: HPLOT XI ,Y1 TO X.Y:X1 

= X:Y1 = Y: NEXT : RETURN 4436 

265 HPLOT 250,50 TO 250,130: HPLOT 260,50 TO 260,130 ADE2 

270 RETURN 63B1 
275 DATA 40,130,40,50,80,50,80,90,40,90,90,130,90,50,130,5 

0,130,90,90,90,130,90,130,130 755B 
280 DATA 180,70,180,50,140,50,140,130,180,130,180,90,155,9 

0,230,130,190,130,190,90,220,90,190,90.190,50,230,50 A1CE 



Cette second© demons- 
tration est un peu plus 
elaboree et peuf etre 
interessante a etudiier. 

La routine en langage 
machine. 



Original, non ? mais 
attendee de connaitre le 
resultat pour repondre 6 
la question ! 



Cette partie du pro- 
gramme se contente 
d'ecrire des caracteres 
geants dans la page 
HGR2. 
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HCR4L 



0300- 


A9 


20 




LDA 


£$■20 


0302- 


85 


E6 




STA 


$E6 


0304- 


A9 


00 




LDA 


£$00 


0306- 


Aft 






TAX 




0307- 


AB 






TAY 




0306- 


20 


F4 


F3 


JSR 


$F3F4 


030B- 


20 


E2 


F3 


JSR 


$F3E2 


030E- 


06 


E6 




ASL 


$E6 


0310- 


20 


F4 


F3 


JSR 


SF3F4 


0313- 


A9 


13 




LDA 


JE313 


0315- 


85 


06 




STA 


$06 


0317- 


85 


25 




STA 


$25 


0319- 


20 


CI 


FB 


JSR 


$FBC1 


031C- 


AS 


29 




LDA 


$29 


831E- 


18 






CLC 




031F- 


69 


04 




ADC 


£$04 


0321- 


85 


29 




STA 


$29 


0323- 


A2 


28 




LDX 


£$26 


0325- 


20 


4A 


F9 


JSR 


$F94A 


0328- 


E6 


06 




INC 


$06 


032ft- 


A5 


06 




LDA 


$06 


032C- 


C9 


18 




CMP 


£$18 


032E- 


D0 


E7 




BKE 


$0317 


0330- 


2C 


53 


C0 


BIT 


SC053 


0333- 


2C 


55 


C0 


BIT 


$C055 


0336- 


A9 


D3 




LDA 


£$D3 


0338- 


85 


28 




STA 


$28 


033A- 


A9 


0B 




LDA 


£$0B 


033C- 


85 


29 




STA 


$29 


033E- 


A0 


22 




LDY 


£$22 


0340- 


29 


73 


03 


JSR 


$0373 


0343- 


10 


FB 




BPL 


$0340 


0345- 


20 


E4 


FB 


JSR 


$FBE4 


0348- 


AD 


00 


C0 


LDA 


$C000 


034B- 


C9 


80 




CMP 


£$80 


034D- 


90 


F9 




BCC 


$0348 


034F- 


2C 


10 


C0 


BIT 


$C010 


0352- 


2C 


54 


C0 


BIT 


$C054 


0355- 


A9 


07 




LDA 


£$07 


0357- 


85 


29 




STA 


$29 


0359- 


A0 


22 




LDY 


£$22 


035B- 


20 


73 


03 


JSR 


$0373 


035E- 


10 


FB 




BPL 


S035B 


0360- 


A9 


Bl 




LDA 


**B1 


0362- 


8D 


E2 


07 


STA 


$07E2 


0365- 


AD 


00 


C0 


LDA 


$C000 


0368- 


C9 


80 




CMP 


£$80 


036A- 


90 


F° 




BCC 


$0365 


036C- 


2C 


IB 


C0 


BIT 


$C010 


036F- 


2C 


51 


C0 


BIT 


$C051 


0372- 


60 






RTS 





] 



$20 dans I'Accumulateur.*. pour que*.. 

HPAG connaisse le numero de page (HGR = $20 ■ 
HGR2 = $40) 

A posse dans I© registre X*.. 
...et dans le registre Y, Tout est a zero ! 
BKGND : Efface I'ecran avec la demiere valeur 
HGR : initialise ($20) 

Decalage a gauche : 00100000 ($20] devient 01000000 ($40) 

et BKGND efface HGR2 

$13 dans I'Accumulateur 

Stockage en $6 (pointeur).., 

.,.et en $25 (position verticals du curseur) 

BASCALC calcule Tadresse de to ligne, adresse que Ton 
retrouve en $28-29. 

On augmente lo partie haute de $4 pour obtenlr Tadresse 
correspond ante de la page TEXTE 2 et on stocke ie resul- 
tat en $29. Le registre X est charge avec ia partie basse. 
$F94A envoie X espaces. 



$06 = 06 + 1 . Si Ton n'est pas encore a $18 r il reste une 
ligne a traiter. 



Fenetre page 2 (POKE - 16301,0; POKE — 16299,0} 



$BD3 - 3027..,adresse de la 24* ligne + 3 

$22 (34) dons le registre Y (longueur du texte a afficher) 
SAUT A LA ROUTINE D'AFFICHAGE 

6IP 

Teste si une louche a ete pressee 

Si plus petit que $80 (128), le test continue 

POKE — 16363,0 

On bascule page h.. 

et on va afficher le texte page 1 ... etc, 



APFICHACE 



0373- 








LDA 


$037A,Y 




0376- 


91 28 




STA 


<*28),Y 




0378- 


88 






DEY 








0379- 


60 






RTS 








037A- 


CI C6 


C6 


C9 


C3 C8 






T 


0380- 


CI C7 


C5 


A8 


10 01 


07 05 




E 


0388- 


20 32 


A8 


08 


D2 C5 


D3 D3 




X 


0390- 


C5 DA 


A« 


DS CE C5 A8 D4 




T 


0398- 


CF D5 


C3 


C8 








£ 



TREMPLIN MICRO 



47 



MICRO-SOLUTIONS 



DOS 3,3 et ProDOS 



Defilement d'une ligne 



10 PRINT CHR$ <2i):DS = CHR$ (4): HOME f PRINT D$"BLQAD 
DEFIL.LM" 

15 T$ = "1234567890ABCDEFGHIJKLMNOPORSTUVWXYZabcd": POK 
E 769,0 

26 PRINT T$;: CALL 768: GOTO 40 

25 VTAB 22: INPUT "VTAB Ci-23) -> "iV$: IF V$ = "■' THEM 
45 

30 V = VAL <V$>r IF V < 1 OR V > 23 THEM 25 

35 POKE 769 ,V - 1: VTAB V: GOTO 20 

40 POKE - 16368,0: GOTO 25 

45 PRINT D$ ,I PR£3" : CALL 809: PRINT 

50 POKE 32,37: POKE 33,40: PRINT : HOME : FOR 1 = 1 TO 
23: VTAB Is PRINT NEXT : POKE 32,39: LIST : PRI 
NT 

55 VTAB 23; PRINT "<1> MENU DISQUE <2> TERM1NE *;i GET 
R$ 

60 IF R$ = "l iJ THEM TEXT : HOME : PRINT : PRINT D$ U RUN 
MENU" 

65 IF R* < > -2" THEM VTAB 22; PRINT : GOTO 55 
70 TEXT ! HOME : END 



DEFIL-DEMO 

Un caractere sod a gauche de 
1'ecran.,. et rentre a droite. 
Essayez cette petite demo- 
Attention I avec les and ens 
Apple ile t supprimer !a boude 
de la ligne 50,creer une figne 54 
et modifier la ligne 55. 



54 POKE 32,0: POKE 33,0 

55 VTAB 23: POKE 1493,38 : PRINT 
"<1> MENU DISQUE <2> TERMINE"; 
: GET R* 



0300- 


A9 


00 




LDA 


0302- 


B5 


06 




STA 


0304- 


A5 


06 




LDA 


0306- 


20 


CI 


FB 


JSP 


0309- 


A0 


00 




LDY 


030B- 


Bl 


28 




LDA 


030D- 


48 






PHA 


030E- 


C8 






I NY 


030F- 


Bl 


28 




LDA 


0311- 


88 






DEY 


0312- 


91 


28 




STA 


0314- 


C8 






I NY 


0315- 


C8 






I NY 


0316- 


C0 


28 




CPY 


0318- 


D0 


F5 




BNE 


031A- 


88 






DEY 


031B- 


68 






PLA 


031C- 


91 


28 




STA 


031E- 


20 


A8 


FC 


JSR 


0321- 


AD 


00 


C0 


LDA 


0324- 


C9 


80 




CMP 


0326- 


90 


El 




BCC 


0328^ 


60 






RTS 




*»»■■■»■■■. 


48 











£$00 

$06 
$06 
SFBCl 
£$00 
C$28), Y 



($285 ,Y 



DEFIL.LM 



£$28 
$030F 



Le premier caractere de ligne est provisoirement emplle 
($30D : PHA), puis on Jit successivement les caracteres 
que Ton reecrit aussitot a la meme adresse.,* rnoins un. 
Finalement, le dernier caractere est recupere sur la pile 
et vient en bout de ligne ($3IB: PLA). Cest BASCALC 
($FBC?) qui fournit I'adresse de la ligne selectionnee. 

Une boucle d'attente ($FCA8... ou WAIT) freine le mou- 
vement. Sa duree est fonction du contenu de I'accumula- 
teur. On pourrait evidemment utiliser un autre systeme 
{empiler toute la ligne... puis la depller). 







~ 0329- 


A9 


00 




LDA 


£$00 




Cette partie 


032B- 


85 


3A 




STA 


$3A 


(*28),y 


est destinee 


032D- 


A0 


03 




LDY 


£$03 


SFCA8 


aofficher 


032F- 


84 


3B 




STY 


$3B 


$C000 


votre routine 


0331- 


20 


53 


F9 


JSR 


SF953 


£$80 


LM (ligne 


0334- 


A9 


17 




LDA 


£$17 


$0309 


Basic 45). 


0336- 


20 


63 


FE 


JSR 


$FE63 






0339- 


60 






RTS 





IJtfMMffll||fg|tM|f«nHH||r|||flflflM||| 

GUY-HACHETTE 



Defilement de I'ecran texte 



Cette demonstration vous 
montre parfaitement le fonc- 
tionnemen! de la routine, une 
simple extension de la prece- 
dents (p t 48). 
Notez que : 

• On poque a f'adresse $7 la 
valeur de A (Wait), 

• Presser une toucbe, stoppe 
le defilement. 

• Presser pomme ouverte le 
relance. 

• Escape permet de sortir de 
la routine. 



100 TEXT s PRINT CHR$ (21): HOME : GOSUB 155 
105 POKE 7.32 

110 FOR I = 1 TO 24 STEP 2i FOR J = 1 TO 38 STEP 2: VTAB 

I: HTAB J; PRINT "S"|: NEXT ; NEXT 
115 VTAB 17.- PRINT : PRINT " UNE TOUCHE ARRETS LE DEF 
1LEMENT 

120 VTAB 19: PRINT "POMME OUVERTE LE RELANCE : ESCAPE = 
FIN ■ 

125 VTAB It CALL 768 
130 PRINT : HOME 

135 VTAB 22: PRINT ■ <1> MENU DISQLFETTE <2> TERMINE " 
; : GET R$ 

140 IF R$ = "1" THEN PRINT * PRINT CHR$ C4rRUN MENU" 
145 IF R$ < > "2" THEN PRINT : GOTO 135 
150 HOME : END 

155 FOR I ■ 768 TO 830: READ R%: POKE I*R%s NEXT i RETUR 
N 

160 DATA 169,23,133,6,165,6,32,193,251,160,0,177,40,72,2 

00,177.40.136,145,40.290,200,192.40,208,245,136,104, 

145,40,165,7,32 
165 DATA 168,252,198,6,16,221,173,0,192,201,155,240,16,2 

01,128,144.206,173,97,192,201,128,144,249,44,16,192, 

176,194,96 



Void, desassernblees, les 33 instructions installees par les lignes 155 a 165 de la demo, 



0300- 


A9 


17 




LDA 


£$17 




Au depart, 


I'adresse 


$6 


est cha 


rgee avec le 


0302- 


85 


06 




STA 


$06 




numero de 


a derniere 


ligne : $17(23), 




0304- 


AS 


06 




LDA 


$06 




ll suffit ensuite de 


decrementer 


cette 


memo 


0306- 


20 


CI 


FB 


JSR 


$FBC1 




adresse $6, pour que 


tautes les lignes de 


I'ecran 


0309- 


A0 


00 




LDY 


£$00 




soient traitees. 










030B- 


Bl 


28 




LDA 


C$28) 


,Y 


Pour obteni 


r la vitesse 


maximum, p 


acez 255 dans 


030D- 


48 






PHA 






la case rnemoire $7 (|i 


gne 


105 du progran 


ime de 


030 E- 


C8 






I NY 






demonstration). 








030 F- 


Bl 


28 




LDA 


($28) 


,Y 














0311- 


88 






DEY 


















0312- 


91 


28 




STA 


($28) 


. Y 














0314- 


C8 






I NY 






CMP $9B 


" 0327- 


AD 


00 C0 


LDA 


$C000 


0315- 


C8 






I NY 






teste la 


032A- 


C9 


9B 


CMP 


£S9B 


0316- 


C0 


28 




CPY 


£$28 




touche 


032C- 


F0 


10 


BEG 


$033E 


0318- 


D0 


F5 




BNE 


S030F 




ESCAPE. 
Quand une 


032E- 


C9 


80 


CMP 


£$80 


031 A- 


88 






DEY 






0330- 


90 


CE 


BCC 


$0300 


031B- 


68 






PLA 






0332- 


AD 


61 C0 


LDA 


$C061 


031C- 


91 


28 




STA 


C$28) 


,Y 


touche o 


0335- 


C9 


80 


CMP 


£$80 


031E- 


A5 


07 




LDA 


$07 




ete pressee. 


0337- 


90 


p9 


BCC 


$0332 


0320- 


20 


A8 


FC 


JSR 


SFCAB 




la valeur 


0339- 


2C 


10 C0 


BIT 


$C010 


0323- 


C6 


06 




DEC 


$06 




lue depasse 


033C- 


B0 


C2 


BCS 


$0300 


0325- 


10 


DD 




BPL 


$0304 




$7F (127). 


033E- 


60 




RTS 





TREWIPLIN MICRO 
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INITIATION 



DOS 3,3 



ProDOS 



ARGOS 



Des fenetres rapides 

sur 40 colonnes 



OUS avonsdeja traite le $ujetdes fenetres sur 40 colonnes (LM. n°4) r mais 
la routine en langage machine etait differente et sa philosophie de meme. 
ici, Argos vous propose une demo montrant comment remplir un ecran (en 
un eclair),., et en vider instantanement une partie, A vous d'en tlrer matiere 
a gerer vos propres fenetres (pour travailler en 80 colonnes, lire le n°9 de TM.). 



100 TEXT 3 PRINT CHR$ (21): HOME 
105 GOSUB 240 

119 PRINT N REMPL I SSAGE D'ECRAN ET FENETRE 

par ^p G Q5.. 

115 VTAB 8: PRINT 11 CARACTERE DE PEMPLISSAGE ";: GET C$: 
PRINT CS 

126 VTAB 10; PRINT "CTRL-I POUR MODE INVERSE " ; : GET R$: 

IF RS = CHRS (9) THEN INVERSE : PRINT C$: NORMAL 
125 PRINT iC = ASC <C$): IP C > 63 AND R» = CHRS <9) THE 

N C = C - 64: GOTO 140 
130 IF R$ < > CHRS (9) THEN C = C + 128: GOTO 140 
135 IF C > 63 THEN C = C + 64 
340 VTAB 12: INPUT 11 HTAB FENETRE (0-38) ":R$ 
145 Hi = VAL (R$): IF HI < OR HI > 38 THEN 140 
INPUT " LARGEUR FENETRE \R$ . 

IF H2 < 1 OR HI + H2 > 39 THEN 150 
"VTAB FENETRE (0-22) " :R$ 
IF VI < OR VI > 22 THEN 160 
" HAUTEUR FENETRE ";R$ 
IF V2 < 1 OR VI + V2 > 23 THEN 170 



150 VTAB 14: 
155 H2 = VAL (R$): 



166 VTAB 16: INPUT 
165 VI = VAL <R$)r 
170 VTAB 18: INPUT 
175 V2 = VAL (R$>: 
180 VTAB 1 

185 POKE 7,C: CALL 768: REM REHPLISSAGE 

190 POKE 6, VI: POKE 7, VI + V2; POKE 8, HI ! POKE 9, HI + H2 

195 REM UN POKE 797,32 (ESPACE INVERSE) FERAIT UNE FENET 

RE EN MODE INVERSE 
290 CALL 607: REM FENETRE 
205 GOSUB 235 

210 VTAB 23: PRINT " 11 : VTAB 24: HTAB 5: PRINT "<D EN COR 

E <2> MENU <3> TERMINE u : : CALL - 198: GET R$ 
215 VTAB 1: PRINT : IF R$ = "1" THEN HOME : GOTO 110 



DE L ECRAN 

On confie le caratere selec- 
tionne a la case-memoire $7 de 
la page zero. Le remplissage de 
lecran, 1el qu'il est realise, 
ligne par ligne, de la 23 e a la e , 
n'affecte pas les 64 octets inuti- 
lises pour la memoire-ecran qui 
sont reserves, vous le savez a 
chaque carte interface de 
peripherique. 



Pour avoir un fond en mode 
inverse, il faut taper un espace 
{GET de la ligne 115), puts 
CTRU (GET de la ligne 120), 



Si vous indiquez successive- 
ment les valeurs 1,38,1,22, 
vous obtiendrez evidemment 
un cadre (lignes 140, 150, 160 
et 170). 



SO 



GUV-HACHETTE 



On utilise les adresses $6 a $9 
de la page zero : 

— $6 : VTAB (0 6 22) 

— $7 : VTAB-FIN + 1 

— $8 : HTAB (0 a 39) 

— $9 : HTAB-FIN + 1 



Lisez la REMarque de la Jigne 195. 



228 IF R$ = "2° THEN PRINT CHRS C4)"PUN MENU" 
225 IF R$ < > "3 H THEN 210 
230 HOME i END 

235 CALL - 198: POKE - 16368.0: WAIT - 16384,128,127 

KE - 16368,0: VTAB lr RETURN 
240 FOR I = 768 TO 813: READ R%: POKE I.J?%: NEXT : PETUR 

N 

245 DATA 169,23,133,6,165,6,32,193,251.165,7,160,39,145, 
40,136,16,251,198,6,16,238,96,32,193.251,164,8,169,1 

60.145,40,200,196,9,206,247,230,6,165,6,197,7.208,23 
4,96 



FENARGOS.LM 



Ces quelques octets sont ceux d^s lignes Basic 245-250 



0300- 


A9 


17 




LDA 


£$17 


0302- 


85 


06 




STA 


$06 


0304- 


A5 


06 




LDA 


$06 


0306- 


20 


CI 


FB 


JSR 


$FBCi 


0309- 


A5 


07 




LDA 


$07 


030 B- 


A0 


27 




LDY 


£$27 


030 D- 


91 


28 




STA 


C$28) ,Y 


030F- 


88 






DEY 




0310- 


10 


FB 




BPL 


$030 D 


0312- 


C6 


06 




DEC 


$06 


0314^ 


10 


EE 




BPL 


$0304 


0316- 


60 






RTS 




0317- 


20 


CI 


FB 


JSR 


SFBCl 


031A- 


A4 


06 




LDY 


$08 


031C- 


A* 


A0 




LDA 


£$A0 


031E- 


91 


28 




STA 


C$28) .Y 


0320- 


C8 






I NY 




0321- 


C4 


0O 




CPY 


$09 


0323- 


D0 


F7 




BNE 


$031C 


0325- 


£6 


06 




INC 


$06 


0327- 


A5 


06 




LDA 


$06 


0329- 


C5 


07 




CMP 


$0? 


032B- 


D0 


EA 




BNE 


$0317 


032D- 


60 






RTS 





] 



INITIALISATION du poin1eur$6 

($17 = 23, numero de laderniere ligne). 

BASCALC (voir note en bas de page) 
Caracfere choisi dans TAccumulateur 

Y =$27 (39 en decimal) 

On ecrit A a I'adresse $28-29 + Y 

Y = Y — 1 

Si Y est egal ou superieur a 0, on continue 
$6 - valeur en 1 
Si plus grand ou egal zero, suite 
Retour au Basic 



□ Voir note dans le bas de la page 

Y est charge ovec HTAB-origme 
$A0 (espace) dans A 
Ecrifure a I'adresse $28-29 + Y 

Y = Y + 1 

Yest-iUga! a HTAB-FIN ? 
Non : on continue 
Sinon $6(VTAB) est increments 
1 Numero de ligne charge dans A 
J Est-ilegalaVTAB-FIN ? 
Non : on continue 
Ou retour au Basic 





$FBC1 
BASCALC 

■lllflNHIIIf BHHH 

TREAAPLIN MICRO 



Cette routine calcule I'adresse de base qui correspond a la 
ligne courante et elle la range dans les memoires BASH ($28) 
et BASL ($29). Au depart, A contient le numero de ligne. ■ 



si 



DOS 3,3 



ProDOS 



Clement RENARD 



Quand les minuscules 

deviennent capitales 

N ne compte plus les routines capables de transformer les minuscules d'un 
programme Applesoft en autant de lettres capitales. En voici une autre, evi- 
demment rapide puisqu'elle est ecrite en langage machine. Pour bien la 
comprendre, nous vous conseillons d'examiner la memoire de votre 
Apple.., et de lire les explications de Clement Renard. 




MINCAP.DEM 

100 TEXT l HOME : IF PEEK (6) < > 77 AND PEEK <9) < > 77 THEN GOSUB 135 SHE 
105 PRINT "toto a 6t£ )e premier & aller ois $a po-": PRINT "salt un g*rieux problems 

EEFB 

110 PRINT : PRINT : LIST 105,128 BAF9 

115 IF PEEK <9) = 77 AND PEEK C9) = 77 THEN 150 1327 

120 VTAB 22: PRINT "tapez call 766, puis RUN ou LIST* 9E85 

125 CALL - 198: POKE - 16366,0: WAIT - 16384 , 128,127: POKE - 16368,0 1D82 

130 POKE 8,77: POKE 9,77: END 220B 

135 FOR I = 768 TO 841: READ R%: POKE I,R%: NEXT : RETURN 895B 
140 DATA 165,103,133,6,165,104,133,7,160,0,177,6,208,1,96,160,4,177,6,240,39,201 ,126 

,176,32,201,64,208,2,169,97,201,92,208,2,169,99,201,124.208,2,169,117 9E42 
145 DATA 201,123,144,2.169,101,201,97,144,4,41,223,145,6,200,208,213,160,0,177,6,170 

,200 ,177,6*134,6, 133*7,206, 190 989A 

150 VTAB 22: PRINT '<!> MENU DISQUETTE <2> TERMINE CALL - 198: GET R$ BB10 

155 POKE 8,0: POKE 9,0 FCD5 

160 PRINT : HOME : IF R$ = "I s THEN PRINT CHR$ C4)"RHN MENU" EEA5 

165 IF R$ < > "2" THEN 150 9493 



INCAP.LIUI (lignes 140 et 145) 



0300- 


A5 


67 


LDA 


$67 


0302- 


85 


06 


STA 


$06 


0304- 


A5 


68 


LDA 


$68 


0306- 


85 


07 


STA 


$07 


0308- 


A0 


00 


LDY 


£$00 


030A- 


Bl 


06 


LDA 


C$06),Y 


030C- 


D0 


01 


BNE 


$030F 


030 E- 


60 




RTS 




030 F- 


A0 


04 


LDY 


£904 



On lit en $67-$68 I'adresse de depart 

du programme APPLESOFT* 

$06-$07 sont utilises comme pointeurs. 

Y = Q 

Contenu de I'adresse $6-$7 + Y dans A 
Si different de 0, on continue 

Y = 4 



U HHHHIHUHH 



GUY HACHETTE 



031 1- 


Bl 


06 


LDA 


($06) .Y 


Contenu de t'adresse $6-$7 + Y dans A 


0313- 




91 

C I 


BEQ 


$033C 


Si c'est un 0, direction $33C fune liane est terrnineej 


0315- 


C9 


7E 


CMP 


JE$7E 


Est-ce superieur a $7E ? 


031 ?- 


DC 




BPS 

JJ vj lJ 


S0339 

TV VV f 


Si oui, C = l et GOTO $339 


031 9- 




40 


CMP 


£$40 


Est-ce un "d" ? 


031 R- 






BNE 


$031F 

W J-t J- 


Non : saut 


a^i n- 


A 9 


Ql 






Oui ; h devient o 


a^i 1?.- 




Ok* 


TMP 


t3*OV*i 


Est-ce un "5" ? 


0391 - 








S03?S 


Non : soul 




flT 


DO 


r da 


J. *Ow 


Oui : »; devient c 




P9 


?r 
* *w 


vi JIT 




Est-ce un "6" ? 


1 ' •• • f 


Uv 








Non : saut 




A9 


75 


LDA 


£$75 


Oui : u devient u 


032B- 


C9 


7B 


CMP 


£$7B 


Est-ce inferieur a $7B(e) ? 


032D- 


90 


02 


BCC 


$0331 


Si oui r C-Q et pas de transformation 


032F- 


A9 


65 


LDA 


£$65 


e (ou e) devient E 


0331- 


C9 


61 


CMP 


£$61 


Est-ce inferieur a $61 (a) 


0333- 


90 


04 


BCC 


$0339 


Oui, on saute 


0335- 




LM. 


AND 

1 II IU 


fSDF — 1 


Le coractere minuscule devient majuscule 


0337- 


91 


06 


STA 


C$06), Y _ 


0339- 


C8 




I NY 




Y = Y + 1 


033A- 


D0 


D5 


BNE 


$0311 


Fnr nrp un tmir 


033C- 


A0 


00 


LDY 


£$00 


Y = 


033E- 


Bl 


06 


LDA 


($06) ,Y 


Lecture ducontenu de $6-$7 + Y( = 0} 


0340- 


AA 




TAX 




A passe dans X 


0341- 


C8 




I NY 




Y = Y + 1 


0342- 


Bl 


06 


LDA 


<»06) ,Y 


Lecture du contenu de $6-$7 + Y( = 1) 


0344- 


66 


06 


STX 


$06 


Nouvelle adresse 


0346- 


85 


07 


STA 


$07 


8348- 


D0 


BE 


BNE 


$0308 


Et ca report ! 



Note de Treifiplln Micro : en 33C, A-Q... done on pourrait gagner un octet en 

passant tout simplement A dans Y (code : A8). Vous 
pouvez essayer en tapant33C: A8 EA (EA est sans effet sur un programme). 



§LIST 



POUR MIEUX COMPRENDRE 



10 REM DEMO 

20 REM minuscules 

§CALL-151 

0867- 01 

0868- ©8 IE 08 
*S0t ,31E 

0801- 8B 08 0A 00 B2 
0868- 4D 4F 00 18 08 
0810- 6D 6? 6E 75 73 
0818- 65 73 00 00 00 



Topez ces deux lignes de 
indique... 



programme", puis tout ce qui est 



• $67-6B = DEPART PROGRAMME APPLESOFT- On y lit I'adresse de la 
ligne suivante qui commence ici en $808, ou se trouve I'adresse de fin 
de programme, puisque celui-ci ne compte que 2 lignes. Comme Unter- 
preteur lira un zero en $81 B, if saura que le programme est termine. 

■ $69-6A = LOAAEM (approximativement fin de programme). 

En examinant le contenu de 5a memoir©, de $801 a 807, vous comprenez 
le pourquoi du Y =4 de la ligne $30Fde notre routine, 

Les pointeurs ($6-7) indiquent 0108 (801). L'adressage 
indirect permet de lire le contenu de $801 + 4, soit 
$805... en sautant le numero de ligne. $B2= REM, puis 
$44-45-4D-4F = DEMO. 



44 
14 
63 
0A 



45 

00 
75 
50 



B2 
60 



TREMPUN MICRO 
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UHLITAfRE 



NESTOR 



Affichage d'une ligne 



Basic en hexadecimal 



II est souvent interessant de pouvoir lire, en hexadecimal, une ligne de pro- 
gramme (par exemple pour modifier un caract&re sans retaper la ligne... dans le 

cas d'une ligne de longueur maximum). Cette petite routine est utilisee par hntermediaire de 

I'Ampersand (&} et permet; a partir d'un numero de ligne, d'affither : 

• ce numero en hexa (vous pouvez done I'utiliser pour convertir une valeur decimale en 
valeur hexadecimale.*. memesi cen'estpassa raison d'etre) ; 

• I'adresse hexa contenant,., I'adresse de la ligne suivante ; 

• I'adresse decimale effective du debut de la ligne, 

• tous les codes hexa de cette meme ligne. 

On ne peut plus simple. Taper BRUN ADRUGNE (ou bien BLOAD 
ADRUGNE, puis CALL 768). Ensuite ( 8 numero de ligne. Quand la 

ligne ne figure pas dans le programme, la routine se content© d' afficher la valeur hexa du 

numero demande et la mention "INEXISTANTE". 



ADRUGNE 



0300- 


A9 


4Q 




LDA 


£*4C _ 




0302- 


8D 


F5 


03 


3TA 


$03F5 




0305- 


A9 


10 




LDA 


£910 




0307- 


8D 


F6 


03 


STA 


$03F6 


INSTALLATION D'AMPERV 


03OA- 


A9 


03 




LDA 


£$03 


JMP $310 si & 


030C- 


80 


F7 


03 


STA 


$03F7 




030F- 


60 






RTS 






0310- 


20 


7B 


DD 


JSR 


$DD7B 


FRMEVL : Evaluation de I'expression (resultat dans FAC) 


0313- 


20 


52 


E7 


JSR 


$E752 


GETADR : Convertit FAC en valeur entiere [resultat darts $50, $51 ) 


0316- 


20 


1A 


D6 


JSR 


$D61A 


FNDLIN : La ligne fait^elle parlie du programme (pomteur en $9B r $9C) 


0319- 


48 






PHA 




A est empile 


031A- 


A5 


51 




LDA 


S51 


A charge avec contenu de $51 


031 C- 


F0 


03 




BEG 


SO 321 


Si zero pour partie haute, inutile d'afficher 


031E- 


20 


DA 


FD 


JSR 


SFDDA 


PRBYTE ; Affiche le contenu hexa de A 


0321- 


68 






PLA 




On depi levers A 


0322- 


20 


DA 


FD 


JSR 


$FDDA 


Affichage de la partie basse du numero de ligne 


0325- 


AO 


02 




LDY 


£*02 


Registre Y = 02 


0327- 


Bl 


9B 




LDA 


<*9B>,Y 


Lecture de la valeur trouvee d I'adresse $9B-9C + Y 


0329- 


C5 


50 




CMP 


$50 


Est-elle egale a celle contenue dans $50 ? 



84 



GUY-HACHETTE 



032B- 


DO 


3A 




BNE 


$0367 


032D- 


C8 






I NY 




032E- 


Bl 


9B 




LDA 


($9B> ,Y 


0330- 


C5 


51 




CMP 


$51 


0332- 


DO 


33 




BNE 


$0367 


0334- 


20 


48 


F9 


JSR 


$F948 


0337- 


A6 


9B 




LDX 


$9B 


0339- 


A4 


9C 




LDY 


$9C 


033B- 


20 


40 


F9 


JSR 


$F940 


033E- 


E8 






I NX 




033F- 


E8 






I NX 




0340- 


DO 


01 




BNE 


$0343 


0342- 


C8 






I NY 




0343- 


86 


3C 




STX 


$3C 


0345- 


84 


3D 




STY 


$3D 


0347- 


AO 


00 




LDY 


£$00 


0349- 


Bl 


9B 




LDA 


<$9B) f Y 


034B- 


85 


3E 




STA 


$3E 


034D- 


C8 






I NY 




034E- 


Bl 


9B 




LDA 


C$9B),Y 


0350- 


85 


3F 




STA 


$3F 


0352- 


CS 


3E 




DEC 


$3E 


0354- 


A5 


3E 




LDA 


$3E 


0356- 


C9 


FF 




CMP 


f$FF 


0358- 


DO 


02 




BNE 


S035C 


035A- 


C6 


3F 




DEC 


$3F 


035C- 


A5 


3D 




LDA 


$3D 


035E- 


E6 


24 




INC 


$24 


0360- 


20 


24 


ED 


JSR 


$ED24 


0363- 


20 


B3 


FD 


JSR 


$FDB3 


0366- 


60 






RTS 




0367- 


A9 


bF 




LDA 


£$6F 


0369- 


AO 


03 




LDY 


£$03 


U JbLV- 


on 


On 


no 
DO 


JSR 


$DB3A 


036E- 


60 






RTS 




036F- 
0371- 


AO 
CE 


C9 
C5 


D8 


Codes du 
mot 

INEXJSTANTE 
(un espace 
au depart) 


0374- 
0376- 
0377- 
0379- 


C9 
D4 
CI 
D4 


D3 
CE 




037A- 


C5 


00 









] 
J 



Non,.. alors on saute ! 

Sinon Y = Y + l r 

Lecture de la partie haute... 

et comparison avec $51 
St c F est zero, la ligne n'existe vraiment pas 
PRBLNK affiche 3 espaces 

X et Y charges avec$9B et$9C... 

pour que PRNTYX affiche la valeur hexa de I'adresse 

X — X + 2 pour obtenir I'adresse effective du debut 
de ligne 

Si zero, il ne faut pas oublier. , . 

d'incrementer la partie haute, c'est-a-dire Y 

Et tout cela va en $3C et $3D (pour affichage des 

memoires) 



Pour que $FDB3 (XAAA) 

puisse afficher les memotres co-tenant 

les llgnes, il faut placer I'adresse de depart 

dans A1L/H ($3C et $3D) 

et I'adresse defin dans A2L/H ($3E et $3F),. 

ce qui va etre realise ici. 



CH = CH + 1 (position du curseur) 
LINPTR affiche les 2 octets de X, A (DEC) 
XAAA affiche les memoires 
Retour 

Si ligne inexistante ( STROUT affiche la chame pom 
tee par Y-A (elle se termine par 0) 



SAUVECARPE : 

BSAVE ADRLIGNE, A$300 r L$7C 



0300: A9 4C 
0310; 20 7B 



8D F5 03 



PAS D ASSEMBLEUR ? 

Tapez ces 8 lignes apres 
un CALL— 151 et sauvez 
sur disque, comme indi- 
que ci-dessus. 



3320: 
0330: 
0340: 
0350: 
0360; 
0370: C9 CE 



FD 68 
C5 51 
DO 01 
85 3F 
20 24 



DD 20 52 
20 DA FD 
DO 33 20 
C8 86 3C 
C6 3E A5 
ED 20 B3 
C5 D8 C9 



A9 10 8D 
E7 20 1A 
AO 02 Bl 
48 F9 A6 
84 3D AO 
3E C9 FF 
FD 60 A9 
D3 D4 CI 



F6 03 
D6 48 
9B C5 
9B A4 
00 Bl 
DO 02 
6F AO 
CE D4 



A9 03 
A5 51 
50 DO 
9C 20 
9B 85 
C6 3F 
03 20 
C5 00 



3h 
40 



8D F7 03 
F0 03 20 
C8 Bl 
F9 E8 
3E C8 Bl 
A5 3D E6 
3A DB 60 
££CFCC 



60 ££C64C 
DA ££940C 
9B H4A7D 
E8 UD924 
9B ££F1DF 
24 H2A36 
AO HCF51 
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Vous avez ecrit 
a TREMPLIN MICRO 



• COLOR.HCR (n°7) 

Je viens de copier la page 21 du n°7 de TM. : j'ai 
obfenu un polygene entierement tesnte. J'ai modifie 
fa Hgne 130 afin d'obtenir un hexagons, puis un 
octogone, puts fe contour d'un bonhomme. Et cect 
piusieurs his avec fe meme programme et tantot 
j'qbtiens lo surface totalement coloree f tantot par- 
tie! lement, tantot nullemenf color ee sans que 
j'arrive a en decouvrir les raisons* J'ai du piusieurs 
fois supprimer fa ligne 110 car f'ecran affichatt : 
ILLEGAL QUANTfTE ERROR IN 230 ; j'ai copse exacte- 
ment la page 21, 

Quelle est eel te ERROR qui ne se produit pas pour 
f octogone et pour ie pofygone d'exempfe, lesquels 
admetfent tres bien la figne 1 10 ? 

R. G. (76200 DIEPPE} 

Dans notre exemple, Y2 = 140 (limits basse de 
1'image). Qr, lorsque vous tracez votre octo- 
gone, vous utilisez la valeur 173... sans modifier 
Y2.., et il est normal que I'image ne soft pos 
entierement coloree. 



TM 




fonctionne. Une fots compile, if fonctionne aussi. 
Mais dans ce cas l je suis oblige de LOADER le "RUN^ 
TfMF'de TASCen mode direct. Autrement dit ; 
L Charger fa disquette ProDOS 

2. BLOAD RUNTIME 

3. BRUN PROGRAMME 

En DOS 3,3 je boote sur un Startup ainsi concu : 
4 PRINT CHR${4) + "BLQAD RUNTIME" + 
CHR$(13) + CHR$ (4) + "BRUN PROGRAMME". 
Cela fonctionne. En ProDOS 1. L /, ce meme Startup 
se comporte de la fogon suivante : je boote sur ce 
startup, Runtime est bien LOADE, mats ensuite le 
programme suivant (d'abord ecrit sous DOS 3.3, 
puis compile par TASC f puis transfere en ProDOS) 
n est pas appefe : il s'affiche : 

? SYNTAX ERROR IN 4 Daniel D. (mi* PARIS) 



TM 



Vous avez beoucoup de chance si TASC fonc- 
tionne sous ProDOS I 

Utilisez un programme EXEC realise sur le 
modele suivant : 



i PONTE.LM(n°5) 

Dans le dernier TREMPLIN MICRO j'ai tape MASTER- 
MIND, qui utilise notomment FONTEXM de Tremplin 
Micro n Q 5, et malgre toutes les verifications possi- 
bles je n'a't jamais pu faire fonctionner ce pro- 
gramme qui se "pfante" a la ligne 230 (230 CALL 
AD). 

J'ai retape egalement FONTE.IM, mats e'est dans 
FONTE.LM qu'H y a des problemes f malgr& so con- 
formite absolue avec vos chiffres des pages 34 et 
35. Je ne suis d'ailleurs pas autrement etonne, car 
je n 'avals deja pas pu hire fonctionner 
FONTE.DEMO de Trempfin Micro n°5 : 
FONTE.DEMO se plantait aussi a la ligne 150 CALL 



16384, 



Monsieur P. (UOOQCAEN) 



| Dans FONTE.LM il faut remplacer les 4 "EA" (a 
partir de Tadresse $4004) par: A9 00 85 25, 



* RUNTIME... ProDOS 

J'ai ecrit un programme en Basic, je f'ai compil4 
avec TASC, et go marche sans problems sous DOS 
3,3. Transfere en ProDOS, mon programme Basic 



10 D* = CHR* (4):G* = CHR$ (34) 

28 PRINT D*"OPEN BOOT " 

30 PRINT D*" WRITE BOOT " 

46 POKE 33,38 

50 PRINT "BLOAD RUNTIME" 

40 PRINT "BRUN PROB . RUNT . OBJ" 

70 PRINT D*" CLOSE BOOT " 

B0 POKE 33,40 

• LOGICCRILLES (n°1) 

J'ai deux questions a vous poser. 

J. Peut-on sortir sur imprimante, et comment 
(avec ou sans la solution) fes griffes du pro- 
gramme LOGIC-GRILLES du n°l (avec IMP.HGR 
ou GF) ? 

2* Je possede une imprimante Imagewritter il et 
contrairement a ce que vous ecrivez la dis- 
quette TOOLKIT n'est pas fournie avec la 
machine. Impossibfe de la trouver (vous en fai- 
tes si souven t reference ! ). 

Andrt BOISSIERE (7633Q N.O. DE GRA VENCHON) 

U A partir d'/MP.HGRJ (paru dans T.M, n*6) r 
vous pouvez imprimer vos LOGICGRILLES 



m 
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GUY-HACHETTE 



COURRIER 



(suite) 



en modifmnt ainsi votre programme : 

505 PRINT : PRINT CHR$(4} rf 8LOA0 IMP.HGM, 

A7090": POKE 6,1: POKE 7 r l: POKE 253,0: 

POKE 254 ,24 
5ia CALL 700G: PRINT : CALL 1002 
511 PRINT CHR$(4) 'TOV; PRINT CHR$(27) "c": 

PRINT "GRILLE-REPONSE = " H: PRINT 

CHR$(1 2) : PRINT CHR$(4) "PR£0" : PRINT 
























































1 
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Quallfl gri 
occuper V 



le du haut peut 
emplacement vide 



ogiquernent: 



2. Votre concession noire peut surement vous 
fournir cette disquette TOOLKIT, d'crilleurs tres 
pratique pour tester le fonctionnement de 
NWII avec le rubart couleur. 

La Boite aux idees in°8» 

Dans ie iistage de la page ft d la premiere 
ligne, an nate une anomolie pour fe mains 
et range t 

300 A9 2C LDA£$7C 

Que vient faire ici, fe 7C. et comment avez- 
vous pu i'obtenir sur llmprimante... les codes 
A9 2C generant obiigatoirement on IDA £$2C ? 
Une calle : peut-on reellement chercher un mot 
de longueur $FF (votre paragraphe RECHERCHE, 
page 6) ? /Uaur/c* c. (7*000 rouen) 



1 , 



2, 



Pas de mystere, C'est bien 2Cet la ligne avail 
4t4 corrigee... par collage, mats la pastille qui 
recouvrait 7C s'est envolee ! 
Non, Cest evidemment une plaisanterie + .< 
puisque la longueur des Eignes ne depasse pas 
78 carocteres, je crois. De plus, Timplantation 
de la routine a I'adresse $300 nWorise pas 
une telle fantaisie*., car on ecroserait d'inte- 
ressantes valeurs 6 partir de $3D0* 



• DIR-ProDOS 

Pouvez-vous me fournir, succinctement, sans bfa- 
blabla la fiste des commandes a envoyer pour : 

1. Creer an sous-catalogue ESSAI (DIR) sur un dis- 
que BD1 ? 

2* Changer le prefixe BD 1 en BD2 ? 

BarnordD, (944 W SAtNT-M A UftlCE) 

Taut cela a deja 4te explique dans TrempUn 
Micro.., Procurez-vous notre disquette INDEX ! 
Creation sous-catalogue : 
CREATE/8D1/ESSAL, et c'est tout ! Pour y acce- 
des vous taperez ensuite : PREFIX/BD1 /ESSAI . 
Changer de prefixe t 

RENAME/BDUBD2 (en placant la virgule au bon 
endralt S.V.P.) 



t BITMAP. RAM 

Bravo paur le numera 8, il est tres interessant ! 
Void quefques elements de reponse pour Jean- 
Claude H. d'Antony concernant la gestion des pages 
memoires par ProDOS, 

Le systeme Bit Map est sitae de $BF58 a $BF6F et il 
gere les 1 92 pages de $00 a $8F. Chaque octet con- 
cerne 8 pages et chaque page est representee par J 
bit « 

Bit 6 - page fibre 
Bit a 1 = page occupee. 

tl faut lire les octets dans le sens poids fort vers 

poids foible, void un petit exemple : 

$BF5$ = 11001131 

Pages Q t 1, 4 f 5, 6 et 7 occupees. 

Void ci-dessous un petit programme d'Hfustration 

qui affiche le Bit-Map. 

Maurte* CHAVELLl (130 J 2 MA RSMtLLg) 

m DATA 162,6,134,37,162,6,230,37,32,34,252,169, 
10,133,34,32,34,3,232,32,34,3,232,224,24,206, 
235,173,8,192,16,251 ,141 ,16,192,96, 189,88, 1*1 
,140,8,136,16.1 ,96, lV2,14V,i69 f i7fl ,288,2, 
169,160,32,237,253,104,76,41,3 
105 FOR C = 768 TO 829: READ AK: POKE C,AKs NEXT 
il« At - fc 8i2345678?ABCDEF M 
L15 HOME s KTAB lflr PRINT "BIT-MAP DE LA RAM" 

12G PRINT TABC 10)" " 

125 PRINT TA8( 18) "(PAGES *00 A $BF)' 

138 VTAB 7: KTAB 11 ; IWERSE ; FOR C = 1 TO 16: P 

R1NT MID* Cflf,C,l)ji NEXT 
135 VTAB 8! FOR C — 1 TO 12s HTAB 10: PRINT MID* 

<A*,C,1): NEXT 
140 VTAB 24: PLASH 

145 KTAB 9s PRINT "PAGES OCCUPEES => * - 5 
158 NORMAL : CALL 768: HOME 
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mmmm^mmmmmmmmmmmmmmmmk 



COURRIER 



(suite) 



• LIST X, Y 

Pourquoi ai-je une S YNTAX ERROR IN 20 ? 
Iff INPUT "DEBUT USTE: " ; 0L 
15 INPUT "FIN USTE: " ; FL 

20 USTDL t FL r,c* (34W0montpellier) 

It^I Lo command© LIST n'accepte pas les variables, 
L n— ' Pourquoi vous ob$tinez-voi;s a contrarier votre 
Apple cheri et son Applesoft ! 



* TRACE HCR 

Qui m'ecrira, en Ian gage machine (pour alter vite), 
une routine capable de tracer des fignes joignont 
des points disposes ale'afoirement $ur un ecran 

HGR ? J.C.{Q2100ST-QUENriN} 



• ETAT DES COMMUTATIONS 

Comment savoir si I'on estou nan en mode TEXT, en 
HGR ou HGR2.,. avec on $ans fenetre ? 

S. C. ($3220 STE-FQY) 

En interrogeant les commutateurs logieiels... 
comme le fait (c'est seulement une petite DEMO) la 
eourte routine que void ; 



UVi 



TM OuL. qui ? 



60OO0 HOME : VTAB 24 

READ V,T*,Tl* 
60010 IF PEEK CV) > 



FOP I = 1 TO 4: 



12? THEN T$ = Tl 



60020 PRINT T$ u 11 ; 

60D30 IF PEEK (491 78 ) < 128 THEM GE 
T R$ 

60040 PRINT ! NEXT 

60 050 DATA 491 78, MODE GRAPH I QUE, MODE 
TEXTE,49179,SANS FENETRE, AVEC F 
ENETRE,49I60,PAGE KPAGE 2,4918 
1, BASSE RESOLUTION, HAUTE RESOLD 
TION 



Reponses a de nombreux lecteurs 



CHRS (27)" CO 10,020,035 ,050 ,070. 



IW.TAB.HOR 

Qui o-serait pretendre que les tabulations de 
HW ne fanctionnent pas ? 
A essayer sans plus attend re ! 



10 PRINT 
15 PRINT 
20 PRINT 

25 print chrs (9); chr$ ci): rem desactive 
la cqmmande ctrl- i de la carte serie ce 
lle devient ctrl-A) 

30 FOR I - 1 TO 5 
40 PRINT I;: NEXT 
45 PRINT CHRS (1); CHR$ C9) 
50 PRINT CHR$ (4) l1 PRiO ft 



"NQMBRE DE LIGNES PAR PAGE 
> 72 THEN 105 



NP: IF NP < 



;NE 



100 TEXT ; HOME 
105 VTAB 7: INPUT 
> 66 AND NP < 

110 VTAB 9: INPUT " N0HBRE DE LIGNES A ED ITER PAR PAGE ™ 

IF NE > = NP THEN 105 
115 NS = NP - NE:NE = NE - 2 

120 CODES - CHR$ (27) + "c" + CHR$ C29) + l8 Aa" : FOR I 
TO NE:C0$ = C0$ + NEXT :C0S = C0$ 4 Jf CS" : FOR I 

1 TO NSrCOS = C0$ + "ciA" r NEXT ;C0$ = C0$ + H A4 
(30) 

125 POKE 768.165: POKE 769 t 6: POKE 770,32 

E 772,253; POKE 773,96 
130 PRINT CHR$ (45"PR£1": PRINT 

135 PRINT CHR$ (9) + STRS ( LEN (COS)) + "N" i REM APPLE 2C 
140 FOR I » 1 TO LEN (CO*): POKE 6, ASC C MID$ (C0$,I,1>): 

CALL 768: NEXT 
145 PRINT : PRINT CHR* C4)™PR£0" 




CtfPS 



POKE 771,237: P0K 



IW.MSTER 

Tout y est, me me le sauf 
de page ! 

Norma lement, celfe 
petite routine fonc- 
tionne, sur DMP ainsi 
que sur I'ancienne et sur 
la nouvelle IMAGE- 
WRITER. ■ 
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ESSAI DELOGICIEL 



ProDOS 



Clement RENARD 



L'ASSEMBLEUR 

le plus puissant du monde ? 

E Reseau Planetaire* diffuse QRCA/M, ariuellement considere comme Tun des meilleurs 
assembleurs du monde. La nouvelle version fonctionne sous ProDOS et gccepte les instructions du 
65C82. Mieux, il semble bien que cet QRCA/M soit parfaitement compatible avec le 65C816 (16 
bits) des prochains APPLE, mais nous n'ovons evrdemment pas ete en mesure de le verifier. 

Un point noir — mais uniquement pour ceux d'entre nous qui ne pratiquent pas I'anglais — , I'importante 
documentation (250 pages) de ce bel outil est redigee en anglais. Dommage que le Roseau Planetaire ne 
puisse pas en fournir une traduction ! 

Sinon, j'avoue avoir ete impressionne par les nombreuses possibility qu'offre ORCA/M aux programmeurs. 




Editeur pleine page : 

La recopie ou la creation d'un programme 
est reellement facile (les utilisateurs de 
ProCODE y sont habitues). Recherches et 
rem placements sont evidemment possi- 
bles, ainsi que la copie ou le deplacement 
de blocs entiers, 

Routines graphiques ; 

Vous pauvez, grace a ces routines graphi- 
ques — en simple et en dauble haute reso- 
lution ! — utiliser des couleurs, remplir des 
formes et dessiner des lignes. C'est une 
aide remarquable... quand on sait s'en 
servir. 

Macros-instructions : 



Si le langage d'ORCA vous autorise a dcrire 
vos propres macros-instructions, il convient 
de remarquer que cet assembleur vous est 
fourni avec un catalogue de plus de 200 
macros deja ecrites... et par des 
specialistes. 



APPRENTISSAGE 



Si vous ovez une bonne habitude des 
assembleurs americalns (Big Mag r Merlin, 
Lisa), vous aurez tot fait d'assimiler les 
diverses commandes & ORCA/M, mais il 



vous faudra neanmoins plusieurs jours pour 
etre reellement en mesure d'en exploiter 
fes richesses. Si vous debutez et n'avez 
aucune pratique de I'anglais, renoncez a 
ORCA/M et offrez-vous le ProCODE fran- 
caisde Version Soft. 

Mais n'hesttez pas a prier le Reseau P/one- 
toire de vous adresser une documentation 
complete sur ce champion. 
Notez qu' ORCA/M est vendu 1200 F TTC, 
prix justifie par I'existence de la bibliothe- 
que de macros-instructions, c.R. 

AUTRES PRODUITS INTERESSANTS 

Toujours au Reseau Planetaire : 

— Fontrix, utilitaire multi-usages de graphis- 
mes et de composition de signes et caracte- 
res typographiques ; 

— Gutenberg, constdere comme le traitement 
de texte le plus puissant, mais reserve h des 
utilisateurs avertis (un detail : le mode 
d'emploi — toujours en anglais — est un 
"petit" bouquin de 768 pages !) ; 

— Prime Plotter, certairiement indispensable 6 
celles et a ceux qui sont amenes a realiser 
de nombreux graphiques ; 

— I. 'Agenda Apple, bon marche et entierement 
en francois (200 F). 



BP a— SAINT-JUUEN CHAPTEUIL 
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ESSAI DE LOGIGEL 



Clement RENARD 



L'EXPERT 

system e expert 



ENTATIVE fort interessonte dont 
I'objectif est de doter les utilisateurs 
d'Apple //d'un outil teur permettant 
d'utiliser des bases de connaissances 
personnelles dans la resolution de 
problemes qui ne le sont pas moins. 

L'EXPERT&$\ compose de deux modules : 
* L'Expert proprement dit 







I V I ( m , K A M f 



Base Manager qui est le gestionnaire des bases de connaissances 





Livree dans un chasseur, sous emboitage, elle est en francais, et 
c'est un bon point. On pourrait peut-etre iui reprocher de se reve- 
ler un peu trop succincfe, mais il n'est pas sur que cette critique 
soit encore justice apres quelques heures d'utilisation* Elle 
explique comment utiliser L'Expert (fjchiers, edition, faci I ites r 
deduire, verifier une hypothese.., expertiser). On sait rapidement 
comment ajouter des faits lexicalement, formuler et sauvegarder 
un fait, utiliser le mode Pourquoi ou le mode Expertises 

Son chapitre 2 est consacre au fonctionnement de Base Manager. 
II est par ailleurs certain que les noivinities en apprccieront le 
chapitre 3. Celui-ci donne en effet des informations generales sur 
les systemes experts et je consellle vivement aux acneteurs de ce 
logkiel de cornrnencer par Id une initiation 6 ('utilisation de 
L 'Expert, 

MIND SOFT ET LES SYSTEMES EXPERTS 

[ existence du Club USE (Utilisateurs des Systemes Experts) 
prouve que Mind Soft* desire reellement aller plus loin et ne point 
se contenter de developper et vendre des systemes experts, Evi- 
demment, I'adhesion au Club n'est pas gratuite (350 F par an), 
mais les adherents resolvent, en fonction de Tactualite de Mind 
Soft, des salons, etc. r une lettre d'information qui contient des 
exemples de bases de connaissances developpees par des utilisa- 
teurs, ainsi que des astuces et renseignements techniques pour le 
developpement de ces memes bases. Les deux premiers bulletins 
m'ont paru interessants. 

Detail important : tout membre du Club a dit-on la possibility en 
priorite, de faire editer ses propres bases de connaissances pro- 



fessionnelles, validees au prealable par Mind Soft, puis 
de les faire commercialiser par le reseau de distribution 
de lo marque. 

On notera que r Mind Soft a passe un contrat de co- 
edition avec Infogrames, Societe dont on connait la bril- 
lanteactivite dans lesecteurdes logiciels de jeux. 

UNE DEMARCHE PERSONNELLE 

Bon nombre de Lecteurs de Tremplm Micro aime- 
roient sans doute que je leur explique comment fonc- 
tionne ce logkiel. Ou encore que je leur suggere de 
courir chez leur revendeur Apple pour se I'offrir sons 
plus tarder... a charge pour moi, pour le cas ou il les 
decevroit, de supporter leur mauvaise humeur ! lis 
vont etre decus. L'Expert constitue une ouverture 
sur I'informatique personnels de demain. Ce n est 
pas encore de NA (intelligence artificielle), mais ceia 
s'en rapproche. Les logiciels de cette famille pernnet- 
tent assurement oux esprits ouverts et imaginatifs de 
se lancer dans la grande aventure des systemes 
experts. Aussi procureront-lls aux uns de nombreu- 
ses et agrepbles satisfactions, tandis qu'ils plonge- 
ront les autres dans des abimes de perplexity 
Pour ma part, je souhaite que L'Expert suscite moult 
curiosifes et inspire a nos fetteurs programmers un 
nombre egal d'idees originates et fructueuses ! 

C.R. 



* 3, rue de I'ArrivAe — 6P 63 — 75749 PARIS CEDEX 15 
(L'EXPERT est vendu, ovec ses deux disq utiles. 1590 F). 
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OCCUPATION COMPLETE DE LA PACE ZERO 



Pour les chiffres et valeurs indlques par la suite, 
Le$ indique une adresse ou un pointeur : $50 est 



Saut (MP) vers la routine de demurrage a chaud de I'Apple 
soft. 

JMP $D43Cavanl le bool d'une disquette. 

JMP $FI28 apres ie boot d f unedisquelte, 
Saut (JMP) vers le sous - prog romm & de- sortie de ccifticlcr os. 

JMP SDB3A avanl le bool dune disquette. 

JMP SF 1 28 apres le bool d une disqueile. 
Adresses inuMlisoos. 

Saut [JMP] defini par I'utilisaleur pour I'ulilisoiton de la forte - 
lion USR, Permet comrnuniquer des pararneires a des 
sous -programmes en fangage machine et de faire un suul 
vers ces programmes. L'adresse est telle du sous- 
programme. Apr es un demurrage a froid, cetle adresse Con- 
tienl : 

4C 99 El qu JMP $E199 

Adresses utili$ee$ comme registres d'aide pour la camparai- 

son de coracteres par la routine CHRGET ; 

ENDCHR = 93 (fin decholnesde coracteres) 

CHAR AC - " (d^bul ou fin de chaines] 

SEPAR = : (separaleur destructions) 

Vpleur de la dimension du dernier tableau declare. 

Longueur d une nouvelle valeur de BASIC (chiffre). 

Compleur lors de la codified I ion (Token) des instructions 

d'Applesoft. 

Drapeau (flag) pour DIM. 
VALTYP. Drapeau dechaTne ; 

— FF si e'est une choine 

— 00 si c'esl un nombre, 
Drapeau pour Fes enliers : 

— 80 si e'est un entier. 

— dans les autres cas. 
Drapeau Garbage Collection. 
Drapeau DATA lors de fa codification. 

SUBFLAG. Drapeau pour le lraiteme.nl des variables : 

— GO variables simples, 

— 40 tableaux de variables (avec STORE, sans indices). 

— 80 variables eniieres inlerdiles. 
Drapeau d 'entree : 

— 00 INPUT 

— 40 GET 

— % READ. 

Regislre de comparoison. Ulilisd par Applesoft lors d'operu- 
tions de comparoison. 
Regislre pour le cafcul de TAN. 
Adresses inutilisees, 

Pointeur sollicite par les sous-programmes pour le gra^ 
phisme. 

Serf de mosque pour la touJeur. 

Serl de memo ire el compteur lors d'un Irate d'une ligne en 

graphique. 

Actresses, inutilisees. 

WNDLFT. Marge gauche de la fenetre de lexte (valeur entre 

et 39 Indus). 

WNDWDTH. Largeur de la fenetre de texts (valeur entre 1 et 
4& mclus). 

WNDTOP. Haul de la fenetre de texle (valeur entre d et 22 

1 IK hit). 



la notation est donnee en base 16 (hexadecimale). 
t'adresse 50 en notation hexadecimale. 

• parMarceCCOTTINJ 

23 WNDBTM. Bas de in fenetre de texle (vafeur entre I el U 
Indus). 

24 CH, Position horizontals du curseur (valeur enlre Q el 39 
inclus). 

25 CV, Posilion verticaJe du curseur (valeur entre el 23 indus). 
26-27 GBASL £ GBASH. Adresse de la premiere colonne dens la 

page graphique. 

2B-29 BASL £ BASH. Adresse de la premiere colonne pour la page 

texte. La valeur de la ligne courante setrouve en CV {$25)„ 
2A-2B 6A52L & BAS2H. Pointeur de la ligne de destination (defcule- 

merit d'ecran ou scroll). 
2C-2D H2 £ V2. Coordonn4es pour HLINE et VLINE (GR). 
2E MASK. Consianles pour le trace en GR, 
2F LASTIW. Voleur pour la lecture d'une cassette. 

30 COLOR. Mosque pour le codage d un point en graphique 
haute resolution, Specif ie lo couleur des lignes paires et 
impaires (respeciivemenl, les 4 bits les plus a gauche et les 4 
bits les plus a droite). 

3 1 MODE. Pointeur pour Ee moniteur. Diflerericie le l/pe d'infor- 
molion dans les commands? ou moniteur. 

32 INVFLG. Definil te mode daffichage video. 

- FF mode NORMAL 

- 3F mode INVERSE 

- 7F mode FLASH, 

33 PROMPT, Conlien! la valeur du prompt (normalement AA). 
34-35 YSAV £ YSAV1. Souvegarde du poinieur de la commande 

execulee par le moniteur. 
36-37 CSW1 £ CSWH. Adresse de la rouline de sortie de caracte^ 
res : 

$9E8D sous DOS 3,3 
3B-39 KSWL 8, K&WH. Adresse de la routine d'entree de caracleres. 
3A-3B PCL fi PCH. Souvegarde du compleur ordinal (registre PCJ, 
3C-3D AILS A1H. 
3E-3F A2L & A2H. 

4Q-41 A3L & A3H. Ce groups d adresses, de $3C a $41 correspond 6 
la lone de sauvegarde el transmission de paramelres avonl 
I'appel de cerlatns sous-programmes du moniteur (par exem- 
ple MOVE. CALL — 468). 
42- 43 A4L £ A4H . Zone de souvegarde de parametres avant L'oppel 

de sous-programmes du moniteur. 
44-45 A5L & ASH. Souvegarde de I'occumuloteur (regislre A). 
A6 Souvegarde du registre X. 

4 7 YREG. Souvegarde du regislre Y. 

48 STATUS, Souvegarde du registre d'etal PS. 

49 SPNT. Souvegarde du registre pointeur de pile, 
4A-4B Utilise par le DOS. 
4C-4D InutiJises. 

4E-4F RN'DL £ RNDH. Geflere un nombre aleoioire duranl KEYIN. 
50" - 5 1 LINNUM. Registre 16 bits cqnlenant le num^ro cfe So ligne 

acluelledu programme en cours. 
52 Registre utilise comme pointeur de piCe pour Ee descripteur 

d e pi I e qui se t ro uv e de $55 a S S D . 
53-54 Pointeur du haul du descripteur, de lo pile du descripteur 
(S55-S5D). 

5S-SD Pile du descripteur pour un maximum de 3 descripteurs. 
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INDEX. Poinleur temporaire pour deplace-r des choines. 
Pointeur pour Applesoft. 

Registres utiles pour les divisions el mullipl kalians. 

Est rnodilie lors du irailemtmt d une division. 

TXTAB. Debui du lex led'un programme en BASIC App I esoli 

SS01 pardelaul. 
LOMEM:. Adresse de debui de la ione des variables simples. 
ARYTAB. Adresse de debut des tableaux de variables, el fin des 
variables simples. 

STREND Adresse de fin + I de la zone des tableaux de variables, 
el debut de la zone libre. 

FRETQP. Adresse du debui de la zone des chaines de coracteres. 
et fin de la zone libre. 

FRESPC Pointeur pour la gesfion des chaines de caracteres. 
HIMEM:. Adresse la plus elevee de memoirs vive (FIN + 1 de la 
RAW). 

OJRLIN. Nume>0 de la ligne atluelle [FF en mode immediar], 

OLDUN, Numero de la demiere ligne execuleo og de la ligne 

interrompue (maximum 6 63999 avec Applesoft). 

OLDTXPTK. Poinleur de lo demiere inslrgclton — 1 a executor, 

lors d'un& interruption par GNERR. 

CONT ['utilise pour redemarrer. 

— $7A COnlienr FF en mode im media I, 
Numerp de ligne de I'insfruclion DATA, 

Poinleur de I'element DATA a lire par ['inslruclian READ. 
Pointeur ulilise par les routines d'enlrees de caroclsres, Lorsque 
INPUT ou READ sonl octifs r ce poinleur es! mis a 201. 
Registre pour le nom de la demiere variable (2 caracteres ASCII), 
VARPNT. Adresse de la valeur de la demiere variable utilisto. 

FORPNT. Pointeur utilise par des routines de la ROW Applesoft 

(LET, NEXT, etc.), 

Poinleur ulilise par CHRGET. 

Regislre de priorite lors de revaluation de valeurs numeriques. 

Regislrede comparison utilise par Applesoft. 

TEMP53 ou FAC5. Registre flollanl lemporaire sur 5 octeh utilise? 

lors du Irailemenr des puissaneesdes nombres. 

Pointeur de la variable delinie par I'instruction "DEF FN", 

Poinleur de la rouiine Garbage Col let I ion pour d^placer les 

ehgTnes. 

Pointeur du descripleur de chains actuel. 
Longueur d'une variable en memoire. 
= 3ou7. 

Sout (JMP) lors d'un appel dune function Applesoll. L'odresse $9G 
wnlienl la valeur de sout "4C el $91. $92 le poinleur de I'instruc- 
tion appelee. 

TEMPI ou FAC3. RegklreflottontsurSoclels. 

— $93 valeur de J'exposanl. 

— $94. $95 poinle le premier element dun tableau de vorra- 
bles. 

— %%. $97 Fin + 1 d'un bio: d'octets (256) lors d'utilisarion 
decerraines routines. 

TEMP? ou FAC4. Registre llollanl sur 5 octets* 

— $99 registre d'oide : FAC1 choine 

— $9A registre pour le Iroitement des chaines el conslantes 
reelles. 

— $9B, $9C pc-inleurs divers, 

FAC ou FACl , Registre accumulator sur 6 octets, 

— $°D exposont de FACl ou indice signe 

— $9E Manlissel. 
S9F Monlisse2. 

— $AG Manlisse3- 

— $A1 Manlissel 

— $A2 signe provi so i rede FACl. Teste si le 7*bil esl signifi- 
colif. 



BVTE 
A3-A4 

AS -A A 



AMC 

A B 

AC 

AO-AE 

AD 

AF-BU 

aua 

B8-B9 
B7 

C9CD 
CE-CF 

D6 



D7 
D8 

D9 

DA-DB 
DC-DD 

DE 

DF 

Eff-El 

E3 

£3 

U 

E5 



E6 



E7 

E0-E9 
EA 

EB-EF 

Fa 

Fl 
F2 
F3 



F4-F8 



F9 

FA-FE 
FF 



* parMarceJCOTTINI 
Utilise pour des font I ions nriathemaliques, 

— $A3 regislre pour iroilei les polynames. 

— $A4 fegislre pour iraiter les Mantissas, 
ARG ou FAC2, Regis Ire argument llollanl 5ur 6 oclets, 

— $A5 exposarit ou signalure. 

— $A6 r $A9 fonetion moih. 

— $AA fondion signe (SON). Signs provisoire de FAC2. 
STHNG1. Pointeur utilise 1 pour deplacer une chaJne par MOVIW&. 
Signe combine, 

Adresse lemporaire pour stacker la voleur arrondre de FACl . 

STfiNG?. Pointeur du dernier coroctere d'une chaTne. 

Regislrepour lecodage des instructions Applesoft (Token) 

PRGEND. Pointeur de la fin + 1 d J un programme. 

CHfiGET. Sous-programme pour I'acquisition du prochain 

caroctAre 4 

TXTPTF, Pointeur (ou cornpteur) de CHRGET. Adresse du dernier 
coractereoblenu por CHRGET, 

CHRGOT. Deuxieme point d'enlree de la routine CHRGET, pour la 

soisie du coraclere acluel. 

Nouibre aleoloire sur5 octols. Utilise par RND. 

Adresses inulilisccs. 

Regislres utilises pour le graphique haute resolution. 
Drapeuu pour Autoslarl. 

— 80 toute commande dans un programme est consideree 
com me un 'RUN". 

Inutilise. 

ERRFLG. DrapeaupourOMERR. 

— W si aclif. 
KUNMOD, Drapeou pour RUN. 

— W si QClif. 

ERRUN. Numero de ligne ou I'erreur s est produite, 

ERRPOS. Pointe la posilion du curatlere d'au I'erreur a ele prise 

en cample, 

ERRNUM. Code de l erreur. 

ERftSTft. Souvegarde du regislre poinleur de pile cvant I'erreur, 
Coordonnees horiionlales du curseur en HGR (vqleur de d 279). 
Goordonn^es vertkales du curseur en HGR (valeur de a 191). 
Inufilise. 

Masque pour lo couleur en HGR r suivanl le dernier HCOLOR 
declare, 

Posilion dun pain! pour certaines roulines en HGR, Position 
delerminee suivanl une matricedefinie dans le sous-programme, 
etcontinuellement mise 6 [aur. 
Drapeou pour la page HGR. 

— 20 HGR (poge l). 
-40 HGR2 (page 2), 

Valeur de SCAIE. 

PoinJeur du debui de la lable des formes (Shape Table). 
Cornpl-eur de Collision, ulilise en haute resolution 
(DRAW/XDRAW) 

InuMlises, 

FIRST. Premiere posilion de HUN el VLIN. 
SPDBYT. Voleur de SPEED (256-SPEED). 
Drapeou pour la fonclion TRACE, 
Drapeau pour la fonetion FLASH. 

— 40 si FLASH oclil. 

— Of} sinon. 
Pointeurs utilises par ONERR. 

— SF4, $F5 poinle dans la zone du programme, la ligne de la 
declaralion de I'inslruclion "ONERR ". 

— $F6. $F7 numero de lo ligne du programme oil se Irouve 
I'instruction Jr ONEfift M . 

— SFS pointeur de pile sauvegarde lors d'une erreur surve- 
nge avec "ONERR", 

Valeur de ROT. 
Adresses mulllisees. 

Adresie de debui, ulilisee pour la souvegarde d'une chame. brs 
de l r utilisation de I'inslruclion "STR$" r _ 
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• GUIDE DEPrODOS (P.BeaufitsetW.Lutker) 

Dans leur court© introduction, les auteurs nous preci- 
sent que "c& livre est un cours de ProDOS, destine a 
apprendre aux non-inities ('utilisation des commandes 
de ce nouveau systerne d'exptoitation Apple'. On ne 
sauroit les accuser de se montrer pretentieux ; ils reus- 
sissent en effet — et fort bien J — non seulement 6 ini- 
tier, mais a nous convaincre que ProDOS est a la fois un 
systerne sur et sans surprises. 

Ayant porfois la charge — - 6 combien delicate et diffi- 
cile ! — de repondre a certaines questions des Lectrices 
et Lecteurs de Tfemplin Micro, je ne surprendrai sans 
doute personne en souhaitant que tous les utilisateurs 
de ProDOS lisent ce guide, et de preference sans en 
negliger aucun des interessants chapitres. On a toujours 
queique chose a apprendre dons un livre redige par des 
speclalistes... ce qui est le cos ici, 

De plus, cornme le disent les auteurs, "la programma- 
tion en langage machine est tr§s facile et ce serait dom- 
mage de s'en priver".,, et ils le prouvent dans les quel- 
ques exemples que je vous laisse le soin de decouvrir. 
Notons au passage que Pierre-Marc Beaufils est profes- 
seur agrege de physique et Wolfram Luther docteur en 
mathematiques... ce qui n'empeehe pas leur guide- 
cours d'etre aussi clair et concis que possible. 

(SYBEX, 6-8 impasse du CW r 75S6I Paris C&dex IB) 




• L'INFORMATISATION 
QUOTIDIENNE 

(ouvrage collect if du CREfS) 

Le CREIS rassembie des enseignants 
et des chercheurs de toutes discipli- 
nes (et la Presse alors ?), L'lnfor- 
motisation quotidienne s J adresse r a 
partir de I'examen de situations 
concretes empruntees aux loisirs r a 
I'industrie, a l J agriculture r 6 I'ecole 
au a Ihopital, a tous ceux qui 
slnterrogent plus ou moins sur le 
devenir de notre societe, face a 
I'envahissement de I'lnformatique, 
J'aE repris a dessein certains des 
termes de la presentation de cet 
ouvrage collectif, Terrnes 6 rnon 
avis excessifs puisqulls posent 
comme postulat que I'mformatique 
est envahissante, Comme le fut, en 
d'autres temps et pour d'autres 
observateurs, la machine a 
vapeur,. . 

II rest© que ce livre est interessant 
et merit© d'etre lu avec attention, 
ne seraH-ce que pour eviter de tom- 



ber dans des exces qu'il convien- 
drait alors de deplorer, Condomnes 
6 l'informatique r les utilisateurs 
pourront-ils s J approprier ce nouvel 
outil ? Cest le sujet du dernier cha- 
pitre de L'informatfsation quoti- 
dienne. Je ne suis pas sur que 3a 
reponse satisfasse les Lectrices et 
Lecteurs de Trempiin Micro, Pour 
eux, en effet, il n'exisie qu'une 
solution : apprendre a maitriser 
leur machine pour en tirer eux- 
memes de veritables satisfactions. 
En effet, dans cette grande famille 
d'Apple-maniaques, nous savons 
apprecier le travail des experts et 
utilisons volon tiers les logiciels 
qu'ils mettent au point, mais nous 
aimons aussi deviner ce qui se 
passe derriere des disquettes pro- 
tegees qui n r en prennent aiors que 
plus de valeur a nos yeux ! 

(Ubrairie Detaoiove, f5 fve Savfifot, 75QQ5 Paris}, 

• L'ANGLAIS COMMERCIAL 
PAR LES MOTS CR01SES 

Comment con|uguer recreation et 



revision de votre anglois commer- 
cial ? En vous offrant le recueil des 
Editions Retz, puis en resolvant les 
30 grilles de mots croises et les 17 
grilles de mots caches que vous 
propose son auteur i M. A, Riccioli. 
Les definitions sont en fran^ais, 
mais les mots a trouver figurent 
parmi les 2SQQ utilises dans le 
monde du commerce, des affaires 
et de la technologie. Toutes les 
reponses sonl evidemrnent don- 
nees dans ie livre, mais il y a 
mieux : un glossaire regroupe tous 
les mots et expressions utilises 
dans les definitions, ceci pour en 
connoitre la traduction immediate, 
si la memoire fait defaut. On donne 
aussi une liste alphobetique des 
abreviatians et sigles, 
Michael Arthur Riccioli est charge 
de cours a I'lnstitut britannique et a 
I'lnstitutcatholique de Paris, charge 
d'enseignement a I'l.U.T, de Paris V 
et enseigne a I'Ecole de vente 
(CCIP). Cest aussi un lecleur de 
TrempUn Micro f 

{FdHictii Reti. 2 rue du Route. 75001 Paris). 
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